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Preface 


The Algorithms department of Communications of 
the ACM (CACM) was established in February 1960, 
with J. H. Wegstein as editor, for the purpose of publish- 
ing algorithms, consisting of procedures and programs, 
in the Algol language. In 1975 the publication of ACM 
algorithms material was transferred to ACM Transac- 
tions on Mathematical Software (TOMS). A wide variety 
of algorithms have been published and many of them 
have been used heavily—either in original form or as 
translated into other languages. Recognizing the general 
acceptance of the algorithm material published in 
CACM and TOMS, the Association for Computing Ma- 
chinery (ACM) has collected and reprinted the algo- 
rithms to make them more readily accessible and more 
serviceable to a larger group of users. 

This collection contains the first 220 algorithms pub- 
lished in the Algorithms department of CACM from 
1960 to 1963. | 

Algorithms 1-220 were originally published as re- 
ceived—without any refereeing whatever. Many of these 
have since been certified and/or corrected by their au- 
thors or by other contributors. 

To facilitate the updating and to make this volume 
convenient to use, an understanding of the page num- 
bering scheme for the algorithms is helpful. The page 


designation is in a three-part format: the left part is the 
algorithm number; the middle part is the page number 
within the algorithm (the first page of each algorithm is 
P1); and the right part is the number of the revision of 
that page. All sheets in the original, or first, insertion of 
an algorithm have “0” for the right part. The first 
revision of a page will have a page number having the 
left and middle parts identical with those on the page to 
be replaced, but the right part will be “R1” instead of 
“0.” The second revision of the same page would read 
R2, and so on. For example, 123-P2-R1 would mean the 
first revision of page 2 of Algorithm 123. 

Information on submitting algorithms for publication 
may be found in the introductory section located in the 
front of the current loose-leaf collection. Included in this 
material is a cumulative index to all the algorithms 
published since 1960 as well as the ACM Algorithms 
Policy, which guides the publication of all algorithms 
submitted to ACM. 


Webb Miller 

ACM Algorithms Editor 

Department of Mathematics 

University of California, Santa Barbara 
Santa Barbara, CA 93106 
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1. QuapI 
R. J. Herbold 
National Bureau of Standards, Washington 25, D. C. 
comment QuadI is useful when integration of several func- 
tions of same limits at same time using same 
point rule is desired. The interval (a,b) is di- 
vided into m equal subintervals for an n-point 
quadrature integration. p is the number of func- 
tions to be integrated. wx and ux, are normalized 
weights and abscissas respectively, where 
k=1,2,3,---,n. ux must be in ascending order. 
P(B,j) =: (ce) is a procedure which must be sup- 
plied by the programmer. It evaluates (c) the 
function (as indicated by j) for B. I; is the result 
of integration for function j.; 
procedure QuadI (a,b,m,n,p,wx,ux,P(B,j) =: (e)) =: (Ij) 
begin 
QuadI: h := (b—a)/m 
for j:= 1p ; I,:=90 
A := a-—h/2 
for 1:= 1(1)m 
Ll begin A := A+h 
for k := 1(1)n 
L2 begin B := A+(h/2)Xur 
for j := 1(1)p 
L3: begin P(B,}) =: (ce). 


I; := Ij+wiXe end 13 ; end L2 


end Ll 
for j := 10)p 
Tj := (h/2)x]; 
return 


integer (j,k,i) 
end QuadI 


1-P 1- 
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2. ROOTFINDER 
J. Wegstein 
National Bureau of Standards, Washington 25, D. C. 


This procedure computes a value of g=x satis- 
fying the equation x=f(x). The procedure calling 
statement gives the function, an initial approxi- 
mation a0 to the root, and a _ tolerance 
paramater ¢« for determining the number of sig- 
nificant figures in the solution. This accelerated 
iteration or secant method is described by the 
author in Communications, June, 1958.; 

Root (f(), a, €) =: (g) 


comment 


procedure 
begin 
Root b:=a ; 
if (c=a) ; 
d:=a ; 
Hob: c := f(b) 
g:= (dXc—bxXe)/(c—e—b+d) 
if (abs((g—b)/g)Se) ; return 
e:=c ; d:=b ; b:=g ; 


c:=f(b) ; g:=ec 
return 


b:=c ; e:=c 


go to Hob 
end 


CERTIFICATION 


2. RoorrinperR, J. Wegstein, Communications ACM, 
February, 1960 


Henry C. Thacher, Jr.,* Argonne National Labora- 
tory, Argonne, Illinois 


Rootfinder was coded for the Royal-Precision LGP-30 Com- 
puter, using an interpretive floating point system with 28 bits 
of significance. The translation from ALGoL was made by hand. 
Provision was made to terminate the iteration after ten cycles 
if convergence had not been secured. 

The program was tested against the following functions: 


(1) f(x) = (x + 1)" (Root = 1.3247180) 

(2) f(x) = tan x 

(8.2) f(x) = 27a + tan x (a = 1, 2, 3, 4) 

(4.2) f(x) = sinh ax (a = —1.2, —0.5, 0.5, 1.2) 


Selected results were as follows: 


(x) a € 


Xk-1 Xk 
1 13 107, 10-* — 1.247283 ©——«1.3258637 (1) 
1 1.3 1075 18247165 (1) 
2 5 1088 — 4674691 —.36021288 (1, 2) 
2 4 10° +-.84880381  +.69496143 (1, 2) 
31 1 10% 7.7252531 
32 2 10% 14.066155 
33 38 lo 20.371026 
34 4 10% 26.665767 


(1) No convergence after 10 iterations. Underlined figures are in- 
correct. 
(2) For this function, f’(0) = 1; so cénvergence is not to be ex- 
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pected at this root. However, the algorithm did not find 

any other root. 
It should be noted that the convergence criterion used fails 
for a zero root. The provision to terminate after a given number 
of cycles is therefore essential. Also, double precision is desirable. 


* Work supported by the U. S. Atomic Energy Commission. 


REMARK ON ALGORITHM 2 

ROOTFINDER (J. Wegstein, Communications ACM, 
February, 1960) 

Henry C. THAcHER, Jr.,* Argonne National Laboratory, 
Argonne, Illinois 


yr —Y ~(yne — Y¥)E" 


+ Ofyxa— Y)8 


where Y is the desired root, and the derivatives f’ and f” are 
evaluated there. Convergence is thus second order, provided that 
lf’? i lyme -— ¥| <2] f — 11. 

The algorithm is, however, somewhat unstable numerically be- 
cause of the factor f(yx-1) — flyxe) — yr + Yee in the de- 
nominator. 

Experience has shown that the minimum fore is about one 
half the precision being used. Provision to indicate when round- 
off errors are causing random oscillations of g would be a desirable 
addition. 

The criterion used for terminating the iteration renders the 
algorithm unsuitable for a zero root. A preliminary test for a 
zero root would be desirable. In addition, the algorithm should 
include provision for exit after a stated number of iterations. 

Algorithm 15 appears to offer advantages along these lines. 


* Work supported by the U. 8. Atomic Energy Commission. 
This algorithm has the convergence factor 


REMARKS ON ALGORITHMS 2 AND 3 (Comm. 
ACM, February 1960), ALGORITHM 15 (Comm. 
ACM, August 1960) AND ALGORITHMS 25 AND 26 
(Comm. ACM, November 1960) 

J. H. WiLkInson 

National Physical Laboratory, Teddington. 


Algorithms 2, 15, 25 and 26 were all concerned with the cal- 
culation of zeros of arbitrary functions by successive linear or 
quadratic interpolation. The main limiting factor on the accuracy 
attainable with such procedures is the condition of the method 
of evaluating the function in the neighbourhood of the zeros. 
It is this condition which should determine the tolerance which is 
allowed for the relative error. With a well-conditioned method of 
evaluation quite a strict convergence criterion will be met, even 
when the function has multiple roots. 

For example, a real quadratic root solver (of a type similar to 
Algorithm 25) has been used on ACE to find the zeros of triple- 
diagonal matrices T having tii = ai, tin.i = bin, 
Ciy1. As an extreme case I took a. = a2 = --- = a5 = Q, a = 


tiiga = 


Oe ate, 
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a =s: =ao=1, an = 2, bi = 1, ¢; = 080 that the func- 
tion which was being evaluated was x5(x — 1)®(x — 2). In spite 
of the multiplicity of the roots, the answers obtained using float- 
ing-point arithmetic with a 46-bit mantissa had errors no greater 
than 2~“, Results of similar accuracy have been obtained for the 
same problem using linear interpolation in place of the quadratic. 
This is because the method of evaluation which was used, the two- 
term recurrence relation for the leading principal minors, is a 
very well-conditioned method of evaluation. Knowing this, I was 
able to set a tolerance of 2-” with confidence. If the same function 
had been evaluated from its explicit polynomial expansion, then 
a tolerance of about 2-7? would have been necessary and the mul- 
tiple roots would have obtained with very low accuracy. 

To find the zero roots it is necessary to have an absolute toler- 
ance for | X:41 — x; | as well as the relative tolerance condition. 
It is undesirable that the preliminary detection of a zero root 
should be necessary. The great power of rootfinders of this type 
is that, since we are not saddled with the problem of calculating 
the derivative, we have great freedom of choice in evaluating the 
function itself. This freedom is encroached upon if we frame the 
rootfinder so that it finds the zeros of x = f(x) since the true func- 
tion x — f(x) is arbitrarily separated into two parts. The formal 
advantage of using this formulation is very slight. Thus, in Certi- 
fication 2 (June 1960), the calculation of the zeros of x = tan x 
was attempted. If the function (—x + tan x) were used with a 
general zero finder then, provided the method of evaluation was, 
for example 


x=nr+y 
ye oy 
3. 30 
tal k= Sie SS, 
cos y 


the multiple zeros at x = 0 could be found as accurately as any 
of the others. With a slight modification of common sine and co- 
sine routines, this could be evaluated as 


(sin y — y) — y(cos y — 1) 
1 + (cos y — 1) 


and the evaluation is then well-conditioned in the neighbourhood 
of x = 0. As regards the number of iterations needed, the re- 
striction to 10 (Certification 2) is rather unreasonably small. 
For example, the direct evaluation of x® — 1 is well conditioned, 
but starting with the values x = 2 and x = 1.5 a considerable 
number of iterations are needed to find the root x = 1. Similarly 
a very large number are needed for Newton’s method, starting 
with x = 2. If the time for evaluating the derivative is about the 
same as that for evaluating the function (often it is much longer), 
then linear interpolation is usually faster, and quadratic inter- 
polation much faster, than Newton. 

In all of the algorithms, including that for Bairstow, it is use 
ful to have some criterion which limits the permissible change 
from one value of the independent variable to the next [1]. This 
condition is met to some extent in Algorithm 25 by the condition 
84, that abs(fprt) < abs(x2 X 10), but here the limitation is 
placed on the permissible increase in the value of the function 
from one step to the next. Algorithms 3 and 25 have tolerances on 
the size of the function and on the size of the remainders rl and 
r0 respectively. They are very difficult tolerances to assign since 
these quantities may take very small values without our wishing 
to accept the value of x as a root. In Algorithm 3 (Comm. ACM 
June 1960) it is useful to return to the original polynomial and to 
iterate with each of the computed factors. This eliminates the loss 
of accuracy which may occur if the factors are not found in in- 
creasing order. This presumably was the case in Certification 3 
when the roots of x® + 7x# + 5x3 + 6x? + 3x + 2 = 0 were 
attempted. On ACE, however, all roots of this polynomial were 
found very accurately and convergence was very fast using single- 


—Na -+ 
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precision, but the roots emerged in increasing order. The reference 
to slow convergence is puzzling. On ACE, convergence was fast 
for all the initial approximations to p and q which were tried. 
When the initial approximations used were such that the real 
root x = —6.35099 36103 and the spurious zero were found first, 
the remaining two quadratic factors were of lower accuracy, 
though this was, of course, rectified by iteration in the original 
polynomial. When either of the other two factors was found first, 
then all factors were fully accurate even without iteration in the 
original polynomial [1]. 
REFERENCE 


{1] J. H. Wrux1nson. The evaluation of the zeros of ill-conditioned 
polynomials Parts I and II. Num. Math. 1 (1959), 150-180. 
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3. SOLUTION OF POLYNOMIAL EQUATION BY BaAIRSTOW- 
Hircucock MretHop 
A. A. Grau 
Oak Ridge National Laboratory, Oak Ridge, Tenn. 


procedure 


BAIRSTOW (n, al[]J, eps0, epsi, eps2, eps3, K) = 
(m, x[], y[], nat[ J, ex[]}); 
The Bairstow-Hitchcock iteration is used to find 
successively pairs of roots of a polynomial 
equation of degree n with coefficients aj 
(i = 0,1, ---, nm) where a, is the constant term. On 
exit from the procedure, m is the number of pairs 
of roots found, x[i] and y[i] (i = 1,-:-,m) area 
pair of real roots if nat{iJ=1, the real and imagi- 
nary parts of a complex pair if nat{iJ=—1, and 
ex[i] indicates which of the following conditions 
was met to exit from the iteration loop in finding 
this pair: 
1. Remainders, ri, r0, become absolutely less 
than epsl. 
2. Corrections, incrp, incrq, become absolutely 
less than eps2. 
3. The ratios, incrp/p, inerq/q, become ab- 
solutely less than eps3. 
4. The number of iterations becomes K. 
In the last case, the pair of roots found is not 
reliable and no further effort to find additional 
roots is made. The quantity eps0O is used as a 
lower bound for the denominator in the expres- 
sions from which inerp and incrq are found.; 


comment 


begin 
integer 
array 


BAIRSTOW 


(i,j, k, nl, n2, ml); 

(b, c(0:n+1]) ; 

fori:=O0(1)n ; bi := a; 

bagi := 0 ; n2:= entire((n+1)/2) 
nl := 2Xn2 

for ml := 1(1)n2 ; begin p :=0 ; 

fork :=1(1)K ; begin 

fori:=O(1)nl ; ¢ :=b; 

for j := nl-—2,nl—4 ; begin 

fori := 0(1)j ; begin 

Cig. [= Ciz1 — P XK Cj 

Ciz2 := Ciz2 — q X C; end end 

r0 := Cy 3 rl := envi 

80:=Cni-2 3; 81 := nis 

v0 :=-qxXsl ; vl:=s0-—slXp 

det0 := vl X s0 — vO X s1 

if (abs(det0)<eps0) ; begin 
=pt+l ; =q+tl ; gotostep end 

detl := s0 X rl — 81 X r0 

det2 := r0 X vl — vO s1 

incrp := detl/detO ; inerq := det2/det0 

p:=pc+inerp ; q:=q-+inerg 

if (abs (r0) < epsl) ; begin 

if (abs (rl) < epsl) ; begin 

€Xm1:=1 ; gotonext end end 

if (abs (incrp) < eps2) ; begin 

if (abs (inerq) < eps2) ; begin 


q := 0 


step: 
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eCXm1:=2 ; gotonext end end 
if (abs (incrp/p) < eps3) ; begin 
if (abs (incrq/q) < eps3) ; begin 


€Xm1:=3 ; goto next end end end 


€Xm1 := 4 
next: S:=p/2 ; T:=S-— gq 
if (T 20) ; begin T := sqrt (T) 
natm:=1 ; xm:=S+4+T 
Ym '= Ss — Tend 
if (T <0) ; begin natm := —1 ; xm:=S5S 
Ym := sqrt(—T) end 
if (eXm1 := 4) 3; goto out 
for j := 0(1) (nl—-2) ; begin 
bint = bj — p X by 
bDjze = Dj+e2 —q x b; 3 end 
nl:=nl—2 ; if (nl <1) 
out: begin m := ml ; return end 
if (nl <3) ; begin 
ml:=ml+1 5; exm:=1 
= bi/bo ; q := be/bo 
go to next end 
end end 
CERTIFICATION 


3. SoLutTion or Potynomian Equation sy Barrstow- 
Hrrcucock Mertuop, A. A. Grau, Communications 
ACM, February, 1960. 


Henry C. Thacher, Jr.,* Argonne National Labora- 
tory, Argonne, Illinois. 


Bairstow was coded for the Royal-Precision LGP-30 computer, 
using an interpretive floating point system (24.2) with 28 bits of 
significance. The translation from ALGou was made by hand. 

The following minor corrections were found necessary. 

a. det 2 := .r0 X vl — v0 X sl should be det 2 := r0 X vi 

— v0 X rl 

b. S:= p/2 should be § := —p/2. 

After these were made, the program ran smoothly for the fol- 
lowing equations: 


x4 — 3x5 + 20x? + 44x +43 =0 x = —.97063897 + 1.0058076i 
x = —2.4706390 + 4.6405330i 
x6 — 2x5 + 2x4 + x3 + 6x? -— 6x +8 = 0 
x = 0.50000000 + 0.86602539i 
x’ = 1,0000000 + 1.0000000i 
1.5000000 +: 1.3228756i 


x 
x5 + x4 — 8x3 — 16x? + 7x + 15 = 
| x = .000000005,"* — 0.99999999 
= 3.000000, 0.99999999 
= —2.0000000 ++ 1.0000000i 


With the equation x5 +- 7x4 + 5x3 + 6x? + 3x + 2 = 0 conver- 
gence was slow, and full accuracy was not obtained. However, the 
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equation with reciprocal roots, 2x5 + 3x4 + 6x3 + 5x2 + 7x + 
1 = 0, converged rapidly. 


* Work supported by the U. S. Atomic Energy Commission. 
** Spurious zero real roots are introduced for equations of odd 
order. 


CERTIFICATION OF ALGORITHM 3 
SOLUTION OF POLYNOMIAL EQUATIONS BY 


BAIRSTOW HITCHCOCK METHOD (A. A. Grau, 7 


Comm. ACM, February, 1960) 
JAMES 8. VANDERGRAFT 
Stanford University, Stanford, California 


Bairstow was coded for the Burroughs 220 computer using the 
Burroughs ALGou. Conversion from ALGOL 60 was made by hand 
on a statement-for-statement basis. The integer declaration had 
to be extended to include n, k, n, NAT, EX, and the corrections 
noted in the certification by Henry C. Thacher, Jr., Communica- 
tions ACM, June, 1960, were incorporated. 

By selecting the input parameters carefully, all branches of 
the routine were tested and the program ran smoothly. The fol- 
lowing polynomials equations were solved: 
x8 — 14x + 49x? — 36 = 0, x = + 1.0000000 

x = + 1.9999998 
x = + 3.0000001 
x8 — 30x® + 273x* — 820x? + 576 = 0, x = + 1.0000000 
x = + 2.0000000 
x = + 2.9999999 
x = + 4,0000001 

Several minor errors were found in the certification by Mr. 
Thacher. The constant term in the first polynomial should be 54 
instead of 43, the second pair of roots for that polynomial should 
be + 2.470639 + 4.6405330 i, and the second pair of roots for the 
second polynomial should be —1.0 + i. 


REMARKS ON ALGORITHMS 2 AND 3 (Comm: 
ACM, February 1960), ALGORITHM 15 (Comm. 
ACM, August 1960) AND ALGORITHMS 25 AND 26 
(Comm. ACM, November 1960) 

J. H. WILKINSON 

National Physical Laboratory, Teddington. 


Algorithms 2, 15, 25 and 26 were all concerned with the cal- 
culation of zeros of arbitrary functions by successive linear or 
quadratic interpolation. The main limiting factor on the accuracy 
attainable with such procedures is the condition of the method 
of evaluating the function in the neighbourhood of the zeros. 
It, is this condition which should determine the tolerance which is 
allowed for the relative error. With a well-cénditioned method of 
evaluation quite a strict convergence criterion will be met, even 
when the function has multiple roots. 

For example, a real quadratic root solver (of a type similar to 
Algorithm 25) has been used on ACE to find the zeros of triple- 


diagonal matrices T having tii = ai, titi = bin, tii = 
Ci4.. AS an extreme case I took a: = ag = --- = a, = 0, a = 
a= =ao = 1, ar = 2, bi = 1, ©: = 080 that the func- 


tion which was being evaluated was x°(x — 1)5(x — 2). In spite 
of the multiplicity of the roots, the answers obtained using float- 
ing-point arithmetic with a 46-bit mantissa had errors no greater 
than 274, Results of similar accuracy have been obtained for the 
same problem using linear interpolation in place of the quadratic. 
This is because the method of evaluation which was used, the two- 
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term recurrence relation for the leading principal minors, is a 
very well-conditioned method of evaluation. Knowing this, I was 
able to set a tolerance of 2- with confidence. If the same function 
had been evaluated from its explicit polynomial expansion, then 
a tolerance of about 277 would have been necessary and the mul- 
tiple roots would have obtained with very low accuracy. 

To find the zero roots it is necessary to have an absolute toler- 
ance for | Xray — Xr | as well as the relative tolerance condition. 
It is undesirable that the preliminary detection of a zero root 
should be necessary. The great power of rootfinders of this type 
is that, since we are not saddled with the problem of calculating 
the derivative, we have great freedom of choice in evaluating the 
function itself. This freedom is encroached upon if we frame the 
rootfinder so that it finds the zeros of x = f(x) since the true func- 
tion x — f(x) is arbitrarily separated into two parts. The formal 
advantage of using this formulation is very slight. Thus, in Certi- 
fication 2 (June 1960), the calculation of the zeros of x = tan x 
was attempted. If the function (—x + tan x) were used with a 
general zero finder then, provided the method of evaluation was, 
for example . 


x=nr+y 
yw 
3. 30, 
tan xX — x = —nr + ——-———,, 
cos y 


the multiple zeros at x = 0 could be found as accurately as any 
of the others. With a slight modification of common sine and co- 
sine routines, this could be evaluated as 


(sin y — y) — y(cos y — 1) 
1 + (cos y — 1) 


and the evaluation is then well-conditioned in the neighbourhood 
of x = 0. As regards the number of iterations needed, the re- 
striction to 10 (Certification 2) is rather unreasonably small. 
For example, the direct evaluation of x® — 1 is well conditioned, 
but starting with the values x = 2 and x = 1.5 a considerable 
number of iterations are needed to find the root x = 1. Similarly 
a very large number are needed for Newton’s method, starting 
with x = 2. If the time for evaluating the derivative is about the 
same as that for evaluating the function (often it is much longer), 
then linear interpolation is usually faster, and quadratic inter- 
polation much faster, than Newton. 

In all of the algorithms, including that for Bairstow, it is use 
ful to have some criterion which limits the permissible change 
from one value of the independent variable to the next [1]. This 
condition is met. to some extent in Algorithm 25 by the condition 
84, that abs(fprt) < abs(x2 X 10), but here the limitation is 
placed on the permissible increase in the value of the function 
from one step to the next. Algorithms 3 and 25 have tolerances on 
the size of the function and on the size of the remainders rl and 
r0 respectively. They are very difficult tolerances to assign since 
these quantities may take very small values without our wishing 
to accept the value of x as a root. In Algorithm 3 (Comm. ACM 
June 1960) it is useful to return to the original polynomial and to 
iterate with each of the computed factors. This eliminates the loss 
of accuracy which may occur if the factors are not found in in- 
creasing order. This presumably was the case in Certification 3 
when the roots of x5 + 7x4 + 5x3 + 6x? + 3x + 2 = 0 were 
attempted. On ACE, however, all roots of this polynomial were 
found very accurately and convergence was very fast using single- 
precision, but the roots emerged in increasing order. The reference 
to slow convergence is puzzling. On ACE, convergence was fast 
for all the initial approximations to p and q which were tried. 
When the initial approximations used were such that the real 
root x = —6.35099 36103 and the spurious zero were found first, 
the remaining two quadratic factors were of lower accuracy, 
though this was, of course, rectified by iteration in the original 


—nr + 
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polynomial. When either of the other two factors was found first, 
then all factors were fully accurate even without iteration in the 
original polynomial [1]. 

REFERENCE 


[1] J. H. Witxrnson. The evaluation of the zeros of ill-conditioned 
polynomials Parts I and II. Num. Math. 1 (1959), 150-180. 


CERTIFICATION OF ALGORITHM 3 

SOLUTION OF POLYNOMIAL EQUATION BY 
BARSTOW-HITCHCOCK (A. A. Grau, Comm. ACM 
Feb. 1960) 

JoHN HERNDON 

Stanford Research Institute, Menlo Park, California 


Bairstow was transliterated into BALGOL and tested on the 
Burroughs 220. The corrections supplied by Thatcher, Comm. 
ACM, June 1960, were incorporated. Results were correct for 
equations for which the method is suitable. x! — 16 = 0 is one 
of those which gave nonsensical results. Seven-digit results were 
obtained for 12 test equations, one of which was x§ — 2x5 + 2x‘ + 
x8 + 6x? — 6x + 8 = 0. 
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4. BIsecTion RotTine 
S. Gorn 
University of 
Philadelphia, Pa. 


This procedure evaluates a function at the end-points 
of a real interval, switching to an error exit (fools 
exit) FLSXT if there is no change of sign. Otherwise 
it finds a root by iterated bisection and evaluation 
at the midpoint, halting if either the value of the 
function is less than the free variable e« or two suc- 
cessive approximations of the root differ by less 
than el. « should be chosen of the order of error in 
evaluating the function (otherwise time would be 
wasted), and el of the order of desired accuracy. el 
must not be less than two units in the last place 
carried by the machine or else indefinite cycling will 
oecur due to round-off on bisection. Although this 
method is of 0 order, and therefore among the slow- 
est, it is applicable to any continuous function. The 
fact that no differentiability conditions have to be 
checked makes it, therefore, an ‘old work-horse’ 
among routines for finding real roots which have 
already been isolated. The free variables yl and y2 
are (presumably) the end-points of an interval within 
which there is an odd number of roots of the real 
function F. a is the temporary exit for the evalua- 
tion of F.; 

Bisec(yl, y2, e, el, F(), FusxtT) =: (x) 


Pennsylvania Computer Center 


comment 


procedure 
begin 
Bisec: 
a: f{ := F(x) 
go to 1 
ism 2 ; fl :=f 3 x: 
if (sign(f) = sign(fl)) ; 
j:=2 ; k:=2 
x := yl/2 + y2/2 -; 
y2 := x 
if (abs(yl — y2) 2 el) 
return 
Reg 7: yl := x ; go to Precision 
integer (i, j, k) 
switch y := (First val, Succ val) 
switch 6 := (FLSXT, Reg 4) 
switch 7 := (Sec val, Reg 7) 
end Bisec 


xX := y2 
return 


ive?! 3; j:=1 ; k:= 
; if (abs(f) S «) ; 


£0 td a 
goto4d; ; go to 


| 
het 
na 


First val: 
Suce val: 
Sec val: 
Midpoint: 
Reg 6: 
Precision: 


go toa 


; go to Midpoint 


CERTIFICATION OF ALGORITHM 4 
BISECTION ROUTINE (S. Gorn, 
March 1960) 
Parry Jane Raper,* Argonne National Laboratory, 
Argonne, Illinois 
BisEc was coded for the Royal-Precision LGP-30 computer, 
using an interpretive floating point system (24.2) with 28 bits of 


significance. 
The following minor correction was found necessary. 


Comm. ACM, 


4Pl1- 0 


a: go to y; should be go to y; 


* Work supported by the U. 8S. Atomic Energy Commission. 
After this correction was made, the program ran smoothly for 
F(x) = cos x, using the following parameters: 


yi ye € e€ Results 
0 1 .001 001 FLSXT 
0 2 .001 001 1.5703 
1.5 2 .001 001 1.5703 
1.55 2 l 1 1.5500 
1.5 2 .001 1 1.5625 


These combinations test all loops of the program. 


* Work supported by the U. 8S. Atomic Energy Commission. 
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5. BrEsseEL Function I, SERIES W-XPANSION 
Dorothea 8. Clarke 
General Electric Co., FPLD, Cincinnati 15, Ohio 


comment Compute the Bessel function In (X) when n and X 
are within the bounds of the series expansion. 
The procedure calling statement gives n, X and an 
absolute tolerance & for determining the point at 
which the terms of the summation become insig- 
nificant. Special case: I, (0) =1; 

procedure — I(n, X, 6) =: (Is) 


begin 

I: s:=0 ; sum:=0 

if (n #0) ; gotoSTRT 

if (X = 0) ; beginIs :=1 ; return end 
summ := | ; go to SURE 

STRT: sfac := 1 

if (s=0) ; goto HRE 

for t:=1(1)s 
sfac := sfac Xt 

HRE: snfac := sfac 

for cr=s+1(1)s+n 


snfac := snfac X t 
summ := sum + (X/2)"*®%*/(sfae X snfac) 

SURE: if (6 < abs (summ — sum)) 

begin s:=s+l ; sum:=summ ; gotoSTRT end 
Is:=summ ; return 

end 


5-P 1- 
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6. Bersseu Function I, ASYMPTOTIC EXPANSION 
Dorothea 8. Clarke 
Genera] Electric Co., FPLD, Cincinnati 15, Ohio 


comment Compute the Bessel Function I,(X) when n and X 
are within the bounds of the asymptotic expansion. 
The procedure calling statement gives n, X and an 
absolute tolerance 6 for determining the point at 
which the terms of the summation become in- 


significant; 
procedure I(n, X, 6) =: (TA) 
begin 
I: r:=1 ; pe:= (4X n?—1)/ (8X X) 
sum := — pe 
Repeat: r:=r+l 
pe := pe X ((2X n)?— (2X r—1)*)/(r X¥ 8X X) 
if (6 < abs (pe)) 
begin sum := sum + (—1)' X pe ; go to Repeat end 
IA := (1 + sum) X (exp(X) / sqrt (2 KX 7 X X)) 
return 


end 


6-P 1- 
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7. EvucuipIAN ALGORITHM 
Robert Claussen 
General Electric Co., Cincinnati 15, Ohio 


comment 


procedure 
begin 
EUC: 

if 

begin 

if 

begin 


here: 
comment 


if 
begin 
begin 


integer 
end 


Every pair of numbers a, b not both zero have a 
positive greatest common divisor: ged; 
EUC (a, b) =: (ged) 


(a = 0) 

ged:=b ; returnend 
(b = 0) 

ged:=a ; returnend 
12 :=a 

rl:=b 

g:= 1r2/rl 

Assumption is made that truncation takes place 
in the above statement; 
r:z=r2—rlXg 

(r = 0) 

ged:=rl ; returnend 
r2:= rl 

rl:=r 

go to here end 

(g) 
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ALGORITHM 8 
EULER SUMMATION 
3 (May 1960), 318 P. NAUR 


procedure euler (fct, sum, eps, tim) ; value eps, tim ; 
integer tim ; real procedure fect ; realsum,eps_ ; 
comment euler computes the sum of fet(i) for i from zero up to 
infinity by means of a suitably refined euler transformation. The 
summation is stopped as soon as tim times in succession the abso- 
lute value of the terms of the transformed series are found to be 
less than eps. Hence, one should provide a function fet with one 
integer argument, an upper bound eps, and an integer tim. The 
output is the sum sum. euler is particularly efficient in the case 
of a slowly convergent or divergent alternating series; 

begin integeri,k,n,t ; array m(0:15] ; realmn, mp,ds_ ; 


i:=n:=t:=0 ; m{0):= fet(0) ; sum:= m[0]/2 ; 
nextterm:i1:=i+1 ; mn:= fet(i) ; 
for k := 0 step 1 until n do 
begin mp := (mn+mi[k])/2 ; m[k] := mn ,; 
mn := mp end means =; 


if (abs(mn) <abs(m[n])) A (n<15) then 
begin ds := mn/2 ; n:=n+l ; 

mn end accept 

else ds := mn =; 

sum := sum+ds_ ; 

if abs(ds)<eps then t := t+] elset:=0 ; 

if t<tim then go to nextterm 

end euler 


m(n] := 


CERTIFICATION OF ALGORITHM 8 

EULER SUMMATION [P. Naur et al. Comm. ACM 
3, May 1960] 

Henry C. THacHrEr, JR.* 


Argonne National Laboratory, Argonne, III. 
* Work supported by the U. 8. Atomic Energy Commission 


The body of ewler was tested on the LGP-30 computer using the 
Dartmouth SCALP translator. No errors were detected. 

The program gave excellent results when used to derive the co- 
efficients for the expansion of In (1+ 2) in shifted Chebyshev poly- 
nomials from the first ten terms of the power series. For n = 0, 1, 
2, 3, 4, the coefficient of x‘ in the power series was multiplied by 
the coefficient of 7,,*(x) in the expression of z* in terms of the 


T,* (x). The product, for? = 1,2, +++ , 10 was used as fet(z) in the 

program. Results for n = 0 were as follows: 
4 Sot(t) ds sum 
1 +0.50000000 — _ 
2 —0.18750000 +0.07812500 +0.3281250 
3 +0.10416667. +0.05729166 +0.3854167 
4 —0.068359375 —0.005940758 +0.3794759 
5 +0.049218750 —0.001928713 +0.3775471 
6 —0.037597656 —0.001357019 +0.3761900 
7 +0 .029924665 +0.0001742393 +0.3763642 
8 —~0.024547577 +0.0000571311 +0.3764212 
9 +0.020607842 -+0.0006395427 +0.3764607 

10 —0.017619705 ~—0.0000055069 +0.3764551 


True Value! +0.3764528129..... 
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Errors less than 0.2 X 1075 were also found for n = 1, 2, 3, 4, 5, 
6,7, 8 and 9. 

This technique appears to be a useful supplement to direct 
telescoping (Algorithms 37 and 38) and to the methods recom- 
mended by Clenshaw!, for slowly convergent power series. 


1 Clenshaw, C. W., Chebyshev Series for Mathematical Functions. 
National Physical Laboratory Math Tables, Vol. 5, London, 
H.M.S.0O. (1962). 
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ALGORITHM 9 RUNGE-KUTTA INTEGRATION 
3 (May 1960), 318 P, NAUR 


procedure RK(x,y,n,FKT,eps,eta,xE,yE,fi) ; value x,y ; 


integer n ; Boolean fi ; real x,eps,eta,xE ; array 
y,yE ; procedure FKT =; 

comment RK integrates the system yi’ =fx(x,Y1 »Y25.-- » Yn) 
(k=1,2,... ,n) of differential equations with the method of Runge- 


Kutta with automatic search for appropriate length of integration 
step. Parameters are: The initial values x and y[{k] for x and the un- 
known functions y;(x). The order n of the system. The procedure 
FKT(x,y,n,z) which represents the system to be integrated, i.e. 
the set of functions f, . The tolerance values eps and eta which 
govern the accuracy of the numerical integration. The end of the 
integration interval xE. The output parameter yE which repre- 
sents the solution at x=xE. The Boolean variable fi, which must 
always be given the value true for an isolated or first entry into 
RK. If however the functions y must be available at several mesh- 
points Xo, X1,..., Xn, then the procedure must be called repeat- 
edly (with x=x,, xE=xx41, fork=0,1,...,n—1) and then the 
later calls may occur with fi=false which saves computing time. 
The input parameters of FKT must be x,y,n, the output parameter 
z represents the set of derivatives z(k]=f,.(x,y{L], y[2], ... , y{n]) 
for x and the actual y’s. A procedure comp enters as a non-local 
identifier ; 
begin 
array z,yl,y2,y3(l:n} ; real x1,x2,x3,H_ ; 
integer k,j ; own real s,Hs_ ; 
procedure RKIST(x,y,h,xe,ye) ; 
yorye ; 
comment : RKIST integrates one single RUNGE-KUTTA 
with initial values x,y[k] which yields the output 
parameters xe=x-+h and yelk], the latter being the 
solution at xe. Important: the parameters n, FKT, z 
enter RKIST as nonlocal entities; 
begin 
array w({l:n], afi:5]_ ; 
a{l| := a[2]:= a[5]:= h/2 ; 


Boolean out ; 


real x,h,xe ; array 


integer k,j_ ; | 
al3}:= af4J:=h _ ; 


xe i= x ; 
for k := 1 step 1 until n do ye(k] := wi{k] := y{k] ; 
for j := 1 step 1 until 4 do 
begin 
FKT(xe,w,n,z) ; 
xes>=x-alj]  ; 
for k := 1 step 1 until n do 
begin 
wk] := ylk]+alj)Xz(kl_ ; 
ye(k] := ye(k] + alj+1)Xz|k]/3 
end k 
end j 


end RKIST  ; 
Begin of program: 

if fithen begin H : = xE—x 

out := false ; 

AA: if (x+2.01K H— 


; 8:=OendelseH:=Hs ; 


xE>0)=(H>0) then 


begin Hs := H ; out := true ; H := (xE-x)/2 
end if ; 
RKIST (x,y,2XH,xl,yl)_ ; 

BB: RKIST  (x,y,H,x2,y2) ; RKIST(x2,y2,H,x3,y3) ; 


for k := 1 step 1 until n do 
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if comp(y1[{k],y3[k],eta)>eps then go to CC; 
comment : comp(a,b,c) is a function designator, the value 
of which is the absolute value of the difference of the 
mantissae of a and b, after the exponents of these 
quantities have been made equal to the largest of the ex- 

ponents of the originally given parameters a,b,c_ ; 


xi:= x8 ; ifoutthen goto DD ,; 

for k := 1 step 1 until n do y[k] :== y3(k]  ; 
ifs=5 then begins:=0 ; H:=2xXHendif ; 
s:=s+l ; go to AA ; 

CC: H:= 056XH ; out: = false. ; xbi= x2 ; 
for k : = 1 step 1 until n do yl(k] := y2[k]_ ; 
goto BB ; 

DD: for k := 1 step 1 until n do yE{k] : = y3{k] 


end RK 


§ This RK-program contains some new ideas which are related 
to ideas of 8. Giuu, A process for the step-by-step integration of 
differential equations in an automatic computing machine, Proc. 
Camb. Phil. Soc. Vol. 47 (1951) p. 96; and E. Fr6sere, On the 
solution of ordinary differential equations with digital com- 
puting machines, Fysiograf. Sdlisk. Lund, Férhd. 20 Nr. 11 (1950) 
p. 136-152. It must be clear, however, that with respect to com- 
puting time and round-off errors it may not be optimal, nor has it 
actually been tested on a computer. 


CERTIFICATION OF ALGORITHM 9 [D2] 

RUNGE-KUTTA INTEGRATION [P. Naur et al., 
Comm. ACM 8 (May 1960), 318] 

Henry C. THACHER, JR.. (Recd. 28 July 1964 and 22 Nov. 


1965) 
Argonne National Laboratory, Argonne, Ill. 


Algorithm 9 was transcribed into the hardware representation 
for CDC 3600 Atco and run successfully. The following procedure 
was used for the global procedure comp: 
real procedure comp (a,b,c); valuea, b, c; 
begin integer AH, BE, CE; 
integer procedure expon(z); real x; 
comment This function produces the base 10 exponent of x; 
expon := if z = 0 then —999 else 
entier (.4842944819 X In(abs(x)) + 1); 

comment The number —999 may be repincéd by any number 
less than the exponent of the smallest positive number handled 
ie the particular machine used, for this algorithm assumes 
that true zero has an exponent smaller than any nonzero 
floating-point number. Users implementing real procedure 
comp by machine code should make sure that this condition 
is satisfied by their program; 

AE := expon(a); BE := expon(b); CE := expon(c); 

if AE < BE then AE := BE; if AH’ < CE then AE := CE; 

comp := abs(a — 6b)/10 ie AE 


end 


real a, b, c; 
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This has the advantage of machine independence, but is highly 
inefficient compared to machine code. 

The procedure was tested using the two following procedures 
for FKT: 
procedure FKT (X, Y, N, Z); real X; integer N; array 

Y,Z; 
comment (dy,/dz) = 2. = ye, (dye/dz) = 2 = —y, . With 

yi(0) = 0, ye(0) = 1, the solution is y: = sin x, ye = cosz; 
begin Z [1] := Y [2]; Z [2] := —Y [1] end; 
procedure FKT (X, Y,N, Z); real X; integer N; array 

¥ 72 
comment (dyi/dx) = 1+ y?. For 7:0) = 0, y(x) = tang; 

Z (1) :=14+Y([L1]12; 

The RK procedure was used to integrate the differential equa- 
tions represented by the first FKT procedure from x = 0(0.5)7.0, 
with eps = eta = 10+, and with y,(0) = 0, y:(0) = 1. The actual 
step size h was .0625 for most of the range, but was reduced to 
.03125 in the neighborhood of x = kr/2, where one or the other of 
the solutions is small. 

The computed solutions at x = 7.0 were: yi: = 6.5698602746 
* 107, ye = 7.5390270246 & 1071, with errors —5.71 X 10-7 and 
4.48 & 1077, respectively. 

Results for the second differential equation are summarized in 
Table I below. 

The efficiency of the procedure would be increased slightly on 
most computers by changing the type of the own variable s from 
real to integer. 

The error is estimated by comparing the results of successive 
pairs of steps with that of a single double step. This is somewhat 
more time-consuming than the Kutta-Merson process presented 
in Algorithm 218 [Comm. ACM 6 (Dec. 1963) 737-8]. However, 
the criterion for step-size variation in Algorithm 9 which effec- 
tively applies an approximate relative error criterion, eps, for 
ly] > eda, and an absolute error criterion eta X eps, for ly] < eta, 
appears superior when the solution fluctuates in magnitude. 


~ 


TABLE I [ALG. 9] 


x= 0.5 x= 10 
i Iinin Absolute error | Relative error hmin Absolute error 
107 10-3 03125 —1 XK 10° | —2 x 10° -03125 9 xX 10° 
10-3 10-3 125 —5 X107| -9 x 107 | 0625 8 X 1077 
10-3 10-3 25 —1 x10 | —2x 10-5] .25 —2 x 10-4 


Relative error 


6X 
5 X 
—1 xX 


10-8 
1077 
10+ 


hmin 


-00390625 


0078125 
03125 


xm 1.5 


Absolute error 
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Relative error 


-~1 xX 10° 
—2 X 107% 
—3 X 107 


—-8 X 10-8 
-—1 X 105 
-—2 X 10° 
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10. EVALUATION OF THE CHEBYSHEV PoLYNomIaL T,(X) 
BY RECURSION 
G. M. Galler 
National Bureau of Standards, Washington 25, D. C. 


comment This procedure computes the Chebyshev 
polynomial T,(X) = cos (n X cos™(X)) for 
any given real argument, X, and any order, n, 
by the recursion formula below; 

real procedure Ch(n, X) ; 


real X ; integern ; 

begin real a,b,c ; integeri ; 
a:= 1; b:=X ; 
ifn = 0 then c := a else if n = 1 then 
c := b else for i := 2 step 1 until n do 


begin c := 2X XXb-—a ; 
a:=b ; b:=e 

end 

Ch := c¢ 


end 


CERTIFICATION OF ALGORITHM 10 

CHEBYSCHEV POLYNOMIAL T,(x) (Galler, Comm. 
ACM, June, 1960) 

JoHN HERNDON 

Stanford Research Institute, Menlo Park, California 


When transliterated into BALGOL and tested on the Bur- 
roughs 220, Ch(n, x) gave better than 7-digit accuracy for n = 0, 
1, 4,8 and x = .01, .2, .7. It gave answers when x > 1 which cor- 
responded to the value of the series with x substituted. 
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11. EvaLuation or THE HERMITE PotyNomriaAL H,(X) 
BY RECURSION 
G. M. Galler 
National Bureau of Standards, Washington 25, D. C. 


comment This procedure computes the Hermite poly- 
nomial 
Hn(X) = (—1)" X eX” x (d2/dXK*(e~X’)) for any 
given real argument, X, and any order, n, by 
the recursion formula below; 

real procedure He(n, X) ; 


integer n ; real X ; 
begin real a,b,c ; integeri ; 
ar= 1 35 b:= 2X 
ifn = 0 then c := a else if n = 1 then 
c := b else for i := 1 step 1 until n—1 do 
begin c:=2XXXb—-2XixXa ; 
a:=b ; b:=e 
end 
He := c 


end 


11-P 1- 
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12. EVALUATION OF THE LAGUERRE POLYNOMIAL L,(X) 
BY RECURSION 
G. M. GALLER 
National Bureau of Standards, Washington 25 D. C. 


comment This procedure computes the Laguerre poly- 
nomial 
Ln(X) = eX XK (d®/dX"(X® X e-*)) for any 
given real argument, X, and any order, n, by 
the recursion formula below; 
real procedure La(n, X)_ ; 
integer n ; realX ; 
begin real a,b,c 3; integeri ; 
a:= lo; b:=1—-X ; 
if n = 0 then c := a else if n = 1 then 
c := b else for i = 1 step 1 until n—1 do 
begin c:= (1+2xXi-—-X)xXb-(G72)Xa ; 
a:= b ; b:=e¢ 
end 
La := ¢ 
end 
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COLLECTED ALGORITHMS FROM CACM 


13. EVALUATION OF THE LEGENDRE POLYNOMIAL P,(X) 
BY RECURSION . 
G. M. Galler 
National Bureau of Standards, Washington 25 D. C. 


comment This procedure computes the Legendre poly- 
nomial 
Pi(X) = (1/(28 X nl)) X d2/dX2(X? — 1)" for 
any given real argument, X, and any order, n, 
by the recursion formula below; 

real procedure Le(n, X) ; 


integer n ; realX ; 

begin real a,b,c ; integeri ; 
a:= 1; b:=X ; 
ifn = 0 then c := a else if n = 1 then 


c := b else for i := 1 step 1 until n—1 do 
begin c:=bXX+(G/G+1)) X (&Xb-a) ; 
a:=b ; b:=e 
end 
Le := ¢ 
end 
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LEGENDRE POLYNOMIAL P,(x) (Galler, Comm. 
ACM, June 1960) 

JoHN HERNDON 

Stanford Research Institute, Menlo Park, California 


When transliterated into BALGOL and tested on the Burroughs 
220, Le(n, x) gave 7-digit accuracy for n = 0,1,4,9 and X = .01, 
2, .7, 1.9, 5.0. 
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ALGORITHM 14 

COMPLEX EXPONENTIAL INTEGRAL 

A. Beam 

National Bureau of Standards, Washington 25, D. C. 

EKZ(x,y,k,e,u,v,n)_ ; 
integer n_ ; 


00 
EKZ computes w(z,k) = u+iv = ater | e~tdt/t* 
Zz 


procedure real x,y,k,eu,v ; 


comment 


from the continued fraction representation found 
in H. S. Wall, Continued Fractions, Chap. 18 (D. 
Van Nostrand, New York, 1948). Input parameters 
are x, y, k, and e where z=x-+iy. Successive con- 
vergents are computed as follows: For n = 2, 3, 4, 
eater | Di = 2/(z + M xX D,-1), Ra = 
(Da — 1)Ra-1, Cao = Cao-1 + Ra, where M is 
k + (n-2)/2 or (n—1)/2 according to whether n 
is even or odd, and D; = R,; = C; = 1. Computa- 
tion is stopped when C, and Cy_; agree to the sig- 
nificance specified by «. The corresponding index 
n is available after use of the procedure. This 
method is valid in the entire complex plane except 
for the origin and the negative real axis. Conver- 
gence is too slow to be practical for |z| < .05. 
Also for some range within the half-strip | y | < 2, 
x < 0 (this range depends on k). The method is 
valid for complex k, but only real k is considered 
in this procedure; 
real tl, t2, t8, M, K,c,a,d,b,g,h,el ; 

integer m ; 
comment R=a+ib, D=c+id, C=g+ih ; 

el := ef2 ; 

ts=ai=1 3; vi=d:=b:=0 ; 

t=k-—1 ; 
Vv; nis=nt+l1 ; 


begin 


n 
ello q 
—" 


BACK: gi= ; h: 
M:i=n+2 , 
if2Xm=nthenM:=m-+KelseM:=m ; 
tl:=x+MxXe ; t2:=y+Mxd ; 

t3 := tlf2 + t2T2 ; 

e:= (xX tl + y X t2)/t3 ; 

d:= (y X tl — x X t2)/t3 ; 

tl:=c-1 ; t2:=a ; 

a:=axXtl—dxXb ; :s=dXt2+tlxXb ; 
u:=gta ; v:=h+b ; 

if (af2 + bf2)/(uf2 + vf2) > el then go to 
BACK ; 

EKZ 


end 


CERTIFICATION OF ALGORITHM 14 
COMPLEX EXPONENTIAL INTEGRAL (A. Beam 
Comm. ACM, July, 1960) 
P. J. RapER anp Henry C. Tuacuer, Jr.* 
Argonne National Laboratory, Argonne, Illinois 
EKZ was programmed by hand for the Royal-Precision LGP-30 
computer, using a 28-bit mantissa floating-point interpretive sys- 


tem (24.2 modified). To facilitate comparison with existing tables 
(National Bureau of Standards Applied Mathematics Series 51 


? 
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and 37), the rea: and imaginary parts of Ex,(z) were computed 
from u and v. Results are shown in the following table. In all 
cases, the values agreed with tabulated values within the toler- 
ance specified. 


x y k € n 
1 x 1078 1.0 1 107! 7 
1 X 10°8 1.0 1 10° 14 
1 X 1078 1.0 1 1073 24 
1 X 1078 1.0 1 10-4 37 
1 x 10°8 1.0 1 10° 52 
1 X 1078 1.0 1 10-6 70 
1 X 1078 1.0 1 1077 90 
1 X 1078 1.0 1 10-8 114 
1X 1078 2.0 1 10-6 37 
1 xX 10°8 3.0 1 10-6 26 
1X 1078 4.0 1 10-6 21 
1.0 1X 108 1 10-6 40 
1.0 1.0 1 10-6 34 
1.0 2.0 1 10-6 26 
1.0 3.0 1 10-6 21 
2-0 1X 10-8 1 1076 23 
2.0 1.0 1 10-6 22 
2.0 2.0 1 10-6 20 
2.0 3.0 1 10-8 17 
3.0 1 X 10°8 1 10-6 17 
3.0 1.0 1 10-6 17 
3.0 2.0 1 10-8 16 
3.0 3.0 1 10-6 15 
4.0 0.0 0 10-6 20 
4.0 0.0 1 10-6 15 
4.0 0.0 2 10-6 16 
4.0 0.0 3(1)14 10-6 17 
4.0 0.0 15, 16 10-6 16 


It thus appears that the algorithm gives satisfactory accuracy, 
but that in certain ranges of the variables, the time required may 
be excessive for extensive use. 
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ALGORITHM 15 

ROOTFINDER II (Modification of Algorithm 2. Root- 
FINDER, J. Wegstein, Communications ACM, February, 
1960) 

Henry C. THacusr, Jr.,* Argonne National Laboratory, 
Argonne, Illinois 


procedure ROOT II (f, a, eps, n, g, c, m); integer n, m; 
real procedure f; real a, eps, g, ¢; 
comment ROOT II computes a value of g = y satisfying 


the equation y = f(y). The iteration will con- 
verge to Y providing that at some time in the 
iteration a g is reached such that abs(g — Y) X 
abs(d(df/dy)/dy) < 2 X* abs((df/dy) — 1), 
where the derivatives are evaluated at Y. 
Input includes (1) f, a procedure for computing 
f(y), (2) a, an initial approximation to the 
root, (3) eps, a tolerance for the relative error 
in g, and (4) n, a maximum number of itera- 
tions to be performed. Output includes: (1) g, 
‘the required root, (2) c = f(g) — g, (3) m,a 
parameter indicating the success of the pro- 
cedure. If the tolerance was not met, m < 0. 
|m — 1| gives the number of times that the 
correction to g exceeded the preceding one, an 
indication of instability. ; 
begin integer j; real b, d, h; 
m := 1; if {(0) = 0 then begin g := 0; 
go to return end -- 
else g := f(a); b:=d:=c:=a-—g; 
if c = 0 then go to return else 
for ] := 1 step 1 until n do begin c := f(g) — g; 
if (abs(c/g) < eps then go to return else h := 
b/c; 
ifh<0Vh> 2thenm:=m-+1 else 
d := d/(h — 1); b := cc; g := g +d end 
iteration 
if the system is known to be stable, the if clause 
of the last statement can be omitted; 
m := — m return end 


comment 


* Work supported by the U. 8. Atomic Energy Commission. 


CERTIFICATION OF ALGORITHM 15 
ROOTFINDER II (Revision by Henry C. Thacher, Jr., 
Communications ACM, August, 1960) 
Henry C. Tuacuer, Jr.,* Argonne National Laboratory, 
Argonne, Illinois 
The revision of ROOTFINDER suggested in the preceding 
remark was programmed by hand for the Royal Precision LGP-30 
computer, using a 28-bit mantissa floating point interpretive 
system (24.2). 
The program was tested for the following equations: 
(i.k) f(y) = arc tan y + kr (k = 0, 1, 2, 3, 4, 6, 8) 
(2) fy) cae ai These both have the root 1.3247180428 
(3) fy) =yi-1 


(4.k) f(y) = sinh ee oe <t ee sae 
(5.k) f(y) = cosh axy (a1 1.2, a 0.5, as 5, Ot 2) 
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Typical results of these tests were as follows. 

f(y) € a gs [f(g-1) — g-1] X 107 Remarks 

1.0 1078 1.0000 0.0000000 0.00 

11 1078 3.1415 4.4984094 0.15 

1.2 10-8 6.2882 7.7252518 0.60 

1.3 10-8 9.4248 10.904122 0.00 | 

1.4 10-8: 12.5664 + 14.066194 0.00 

1.6 10-8 =: 118. 8496-20. 371303 0.60 

1.8 10-8) =. 25.1327 26.666054 0.60 

1.2 1078 1.3 1.3247179 0.00 

1.2 10-8 0.5 1.3247179 0.00 

3 10-9 9.0 4.4804900 197.74 X 107| Diverged 2 times, not con- 

3 107° 5.0 1.3482797 .51 & 107 verged after 20 iter. 

3 1079 3.0 1.3247180 0.0 Converged in less than 20 iter. 

3 10-9 2.0 Diverged 2 times. Term. with 
h=1. 

3 10-9 1.1 1.3247180 1384.24 Diverged 9 times. Converged 
after 20 iter. 

3 10-8 1.0 Terminated when g became 0. 

3 10-9 0.8 1.3247180 0.00 Diverged 4 times. Conv. in 
less than 20. 

3 10°9 0.6 1.6161598 4.39 X 107 Diverged 2 times. No conv. 
after 20. 

4.k 10-9 1.0 0.00000000 0.0000000U For all k. 

5.1,5.4 1078 1.0 0.09179585 0.793: 107 Diverged 7 times. No conv. 


after 20 iter. 


5.2,6.3 1078 1.0 1. 11787755 0.037 


Function (8) is of particular interest, since it does not converge 
for most algorithms. With the Wegstein iteration, convergence 
was obtained, or would have been obtained with a few more itera- 
tions for a wide range of initial guesses. 


* Work supported by the U. 8. Atomic Energy Commission. 


REMARK ON ALGORITHM 15 

ROOTFINDER. II (Henry C. Thacher, Jr., Comm. 
ACM, August 1960) 

GrorcGE E. ForsytHE anp JoHn G. Herriot, Stanford 
University, Stanford, California 


As pointed out by Lieberstein (Comm. ACM, January 1959, 
p. 5), this algorithm is precisely the Newton method of chords or 
the scant method applied to g(x) = f(x) — x = 0. Thus conver- 
gence is not of second order but rather (for simple roots) of order 
4(\/5 — 1) = 1.618, as shown by Jeeves (Comm. ACM, August 
1958, pp. 9-10). In the first portion of the algorithm b, c,.d, should 
be set equal to g— a instead of a— gin order to be consistent with 
the iteration portion. Doing this will usually cut down the number 
of iterations. Not only is a preliminary test for a zero root de- 
sirable but.the possibility that g may be zero at any stage of the 
iteration should be considered in writing the return criterion. The 
possibility that h = 1 should also be checked and appropriate ac- 
tion taken. Algorithm 26 takes care of these matters and also 
corrects some minor errors in Algorithm 15. This method is cer- 
tainly not the best rootfinder that could be written. 


COLLECTED ALGORITHMS (cont.) 


REMARKS ON ALGORITHMS 2 AND 38 (Comm. 
ACM, February 1960), ALGORITHM 15 (Comm. 
ACM, August 1960) AND ALGORITHMS 25 AND 26 
(Comm. ACM, November 1960) 

J. H. WILKINSON 

National Physical Laboratory, Teddington. 


Algorithms 2, 15, 25 and 26 were all concerned with the cal- 
culation of zeros of arbitrary functions by successive linear or 
quadratic interpolation. The main limiting factor on the accuracy 
attainable with such procedures is the condition of the method 
of evaluating the function in the neighbourhood of the zeros. 
It is this condition which should determine the tolerance which is 
allowed for the relative error. With a well-conditioned method of 
evaluation quite a strict convergence criterion will be met, even 
when the function has multiple roots. 

For example, a real quadratic root solver (of a type similar to 
Algorithm 25) has been used on ACE to find the zeros of triple- 


diagonal matrices T having tii = ai, tii = bin, tiin = 
Ci41. AS an extreme case J took a: = ag = +--+ = as = 0, ag = 
a=: = ao = 1, an = 2, bi = 1, ci = 080 that the func- 


tion which was being evaluated was x§(x — 1)5(x — 2). In spite 
of the multiplicity of the roots, the answers obtained using float- 
ing-point arithmetic with a 46-bit mantissa had errors no greater 
than 2-, Results of similar accuracy have been obtained for the 
same problem using linear interpolation in place of the quadratic. 
This is because the method of evaluation which was used, the two- 
term recurrence relation for the leading principal minors, is a 
very well-conditioned method of evaluation. Knowing this, I was 
able to set a tolerance of 2~” with confidence. If the same function 
had been evaluated from its explicit polynomial expansion, then 
a tolerance of about 2-7 would have been necessary and the mul- 
tiple roots would have obtained with very low accuracy. 

To find the zero roots it is necessary to have an absolute toler- 
ance for | x41 — xr | as well as the relative tolerance condition. 
It is undesirable that the preliminary detection of a zero root 
should be necessary. The great power of rootfinders of this type 
is that, since we are not saddled with the problem of calculating 
the derivative, we have great freedom of choice in evaluating the 
function itself. This freedom is encroached upon if we frame the 
rootfinder so that it finds the zeros of x = f(x) since the true func- 
tion x — f(x) is arbitrarily separated into two parts. The formal 
advantage of using this formulation is very slight. Thus, in Certi- 
fication 2 (June 1960), the calculation of the zeros of x = tan x 
was attempted. If the function (—x + tan x) were used with a 
general zero finder then, provided the method of evaluation was, 
for example 


c=nor+y 
: ie i 
3 30 
tan x —- x = —nar + 
cos y 


the multiple zeros at x = 0 could be found as accurately as any 
of the others. With a slight modification of common sine and co- 
sine routines, this could be evaluated as 


(sin y — y) — y(eos y — 1) 
1 + (cos y — 1) 


and the evaluation is then well-conditioned in the neighbourhood 
of x ='0. As regards the number of iterations needed, the re- 
striction to 10 (Certification 2) is rather unreasonably small. 
For example, the direct evaluation of x® — 1 is well conditioned, 
but starting with the values x = 2 and x = 15a considerable 
number of iterations are needed to find the root x = 1. Similarly 
a very large number are needed for Newton’s method, starting 
with x = 2. If the cime for evaluating the derivative is about the 


—Dnr + 
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same as that for evaluating the function (often 1t 1s much longer), 
then linear interpolation is usually faster, and quadratic inter- 
polation much faster, than Newton. 

In all of the algorithms, including that for Bairstow, it is use 
ful to have some criterion which limits the permissible change 
from one value of the independent variable to the next [1]. This 
condition is met to some extent in Algorithm 25 by the condition 
S4, that abs(fprt) < abs(x2 X 10), but here the limitation is 
placed on the permissible increase in the value of the function 
from one step to.the next. Algorithms 3 and 25 have tolerances on 
the size of the function and on the size of the remainders rl and 
r0 respectively. They are very difficult tolerances to assign since 
these quantities may take very small values without our wishing 
to accept the value of x as a root. In Algorithm 3 (Comm. ACM 
June 1960) it is useful to return to the original polynomial and to 
iterate with each of the computed factors. This eliminates the loss 
of accuracy which may occur if the factors are not found in in- 
creasing order. This presumably was the case in Certification 3 
when the roots of x® + 7x* + 5x3 + 6x? + 3x + 2 = 0 were 
attempted. On ACE, however, all roots of this polynomial were 
found very accurately and convergence was very fast using single- 
precision, but the roots emerged in increasing order. The reference 
to slow convergence is puzzling. On ACE, convergence was fast 
for all the initial approximations to p and q which were tried. 
When the initial approximations used were such that the real 
root x = —6.35099 36103 and the spurious zero were found first, 
the remaining two quadratic factors were of lower accuracy, 
though this was, of course, rectified by iteration in the original 
polynomial. When either of the other two factors was found first, 
then all factors were fully accurate even without iteration in the 
original polynomial [1]. 

REFERENCE 


[1] J. H. Wrixinson. The evaluation of the zeros of ill-conditioned 
polynomials Parts I and II. Num. Math. 1 (1959), 150-180. 
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ALGORITHM 16 

CROUT WITH PIVOTING 

GeEorRGE E. ForsytHE 

Stanford University, Stanford, California 


real procedure INNERPRODUCT (u,v) index : (k) start : (s) 
finish : (f); 


values, f; integerk,s,f; real u, v; 
comment INNERPRODUCT forms the sum of u(k) X 
v(k) for k= s,s+1,...,f.Ifs >f, the value 
of INNERPRODUCT is zero. The substitution 
of a very accurate inner product procedure 
would make CROUT more accurate; 
begin 
real h; 


h:= 0; for k := 8 step 1 until f doh := h-+-u X v; 
INNERPRODUCT := h 
end INNERPRODUCT; 


procedure CROUT (A, b, n, y, pivot, INNERPRODUCT); 
value n; array A,b, y, pivot; integer n, pivot; 
real procedure INNERPRODUCT; 
comment This is Crout’s method with row interchanges, as 
formulated in reference [1], for solving Ay = b 
and transforming the augmented matrix [A b] 
into its triangular decomposition LU with all 
L{k, k] = 1. If Ais singular we exit to ‘singular,’ 
a non-local label. pivot[k] becomes the current 
row index of the pivot element in the k-th 
column. Thus enough information is preserved 
for the procedure SOLVE to process a new 
right-hand side without repeating CROUT. 
The accuracy obtainable from CROUT would 
be much increased by calling CROUT with a 
more accurate inner product procedure than 
INNERPRODUCT; 
begin 
integer k, i, j, imax, p; real TEMP, quot; 
for k := 1 step 1 until n do 


1: begin 
TEMP := 0; 
for i := k step | until ndo 
Q: begin 
Afi, k] := Afi, k] - INNERPRODUCT(Ali,p], Alp, kJ, 
Dp, 1; k—1); 
if abs(A[i, k]) > TEMP then 
3: begin 
TEMP := abs(Ali, k]);| imax := i 
end 3 
end 2; 


pivot(k] := imax; 

comment We have found that Afimax, k] is the largest 
pivot in column k. Now we interchange rows k and imax; 

if imax ~ k then 


4: begin for j := 1 step 1 until n do 
Bb: begin 
TEMP := Al[k,j]; Alk, j] := Alimax,j]; 
Afimax,j] := TEMP 
end 5; 


TEMP := b{k]; b[k] := blimax]; bfimax] := TEMP 
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end 4; 
comment The row interchange is done. We proceed to the 
elimination; 
if A[k, k] = 0 then go to singular; 
for i := k+1 step 1 until n do 
begin quot := 1.0/A[k, k]; Afi, k] := quot x Ali, k] 
end; 
for j := k+1 step 1 until n do 
Alk, j] := Afk,j] - INNERPRODUCT(A[k, pl, 
Alp,jl, p, l, k=1); 
b[k] := b[k] - INNERPRODUCT(A[k,p], b[p], p, 
1, k—1) 
end 1; . 
comment The triangular decomposition is now finished, 
and we do the back substitution; 
for k := n step —1 until 1 do 


yk] := (b{k] — INNERPRODUCT(A[k,p], ylp], p, 
k-+-1, n)/Alk, k] 
end CROUT; 


procedure SOLVE (B, ¢, n, z, pivot, INNERPRODUCT); 
value n; array B, c, z, pivot; integer n, pivot; 
real procedure INNERPRODUCT; 

comment SOLVE assumes that a matrix A has already been 


transformed into B by CROUT, but that a new 
column c has not been processed. SOLVE solves the 
system Az = c, and the output z of SOLVE is pre- 
cisely the same as the output y of the procedure 
statement CROUT (A, c, n, y, pivot, INNER- 
PRODUCT). However, SOLVE is faster, because 
it does not repeat the triangularization of A; 
begin 
integer k; real TEMP; 
for k := 1 step 1 until n do 
begin — 
TEMP’ :=_ e[pivot[k]]; 
TEMP; c{k] := 
el[p], p 1, k — 1) 
end; 
for k := n step —1 until ido 


e[pivot[k]] := clk]; clk] := 
c[k] — INNERPRODUCT(BIk, p], 


z{k]) := (e{k] — INNERPRODUCT(BIk,p], z[p], p, 
k+1, n)/B{k, k] 
end SOLVE 


REFERENCE 


[1] J. H. Witxrnson, theory and practice in linear systems, pp. 
43-100 of Joun W. Carr III (editor), Application of Advanced 
Numerical Analysis to Digital Computers, (Lectures given at 
the University of Michigan, Summer 1958, College of En- 

' gineering, Engineering Summer Conferences, Ann Arbor, 
Michigan [1959]). 
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REMARK ON ALGORITHM 16 

CROUT WITH PIVOTING (G. Forsythe, Communica- 
tions ACM, September, 1960) 

Georce E. ForsyTHE 

Stanford University, Stanford, California 


QUERY 


Perhaps the most basic procedure for an ALGOL library 
of matrix programs is an inner product procedure. The pro- 
cedure Innerproduct given on page 311 of [1] is fairly difficult 
to comprehend, and probably poses great difficulties for most 
translating routines. I merely copied its form in writing a modi- 
fied inner product routine for [2]. 

My query is: How should one write an inner product pro- 
cedure in ALGOL? 


REFERENCES 


1. Peter Navur (editor), J. W. Backus, ET AL., Report on the 
algorithmic language ALGOL 60, Comm. Assoc. Comp. 
Mach. 8 (1960), 299-314. 

2. Grorce E. Forsytue, Crovut with pivoting in ALGOL 
60, Comm. Assoc. Comp. Mach. 8 (1960), 507-508. 


REMARK ON ALGORITHM 16 

CROUT WITH PIVOTING (G. E. Forsythe, Comm. 
ACM, 3 (Sept. 1960), 507-8.) 

Henry C. THacuer, Jr.,* Argonne National Labora- 
tory, Argonne, Illinois 


This procedure contains the following errors: 
a. In SOLVE, the expression 
e{k] := e{k] — INNERPRODUCT 
(BIk, p], e{p], p 1,k — 1) 
should. read: 
c[k] := e{k] — INNERPRODUCT 
(BIk, p], elp], p, 1, k — 1) 
b. In CROUT, the specification part should read: 


array A, b, y ; integer n ; integer array pivot ; 
c. In SOLVE, the specification part should read: 
array B,c, z ; integer n ; integer array pivot ; 


The efficiency of the algorithm will be improved by the follow- 
ing changes: 

a. In the elimination phase of CROUT, replace 

for i := k + 1 step 1 until n do 
begin quote := 1.0/A[k,k] ; Afi, k] := quot XA[i,k]end ; 
by 
quot := 1.0/A{k, k] ; fori := k + 1 step 1 until n do 
Afi, k] := quot XA[i, k]  ; 

b. Omit INNERPRODUCT from the formal parameter list 
in both CROUT and SOLVE, and declare INNERPRODUCT 
either locally, or globally. This avoids any reference to INNER- 
PRODUCT in the calling sequence produced by a compiler. 

It is also to be noted that a minor modification of CROUT 
allows it to be used to evaluate the determinant of A. 

All of these suggestions are included in a later algorithm. 


* Work supported by the U. 8. Atomic Energy Commission. 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 17 . 

TRDIAG 

C. F. Spracue III 

General Atomic Division of General Dynamics Corp., 
San Diego, California 


procedure trdiag (a,b,c,d) order : (n) result : (x); 
value n; array a, b,c, d, x; integer n; 
comment this procedure gives the solution to the tri- 


diagonal system of linear algebraic equations: 
aXe + bixi + di = 0 
aiXinn + Dixy + Cixi + dj = 0, 1 =2,3,---,n-l 
baXn + CnXn-1 + da = 0. 
This method is often used to obtain solutions to 
second order difference equations; 
begin array gamma [1 :n—1]; integeri; real y; 
gamma [Ii] := —a[l1]/b[1]; 
x(1] := —d{1]/b{1]; 
for i := 2 step 1 until n—1 do 
begin y = bli] + cli] X gamma [i — 1]; 
gamma [i] := —alil/y; xfi] := —(cefi] X xfi-1] 
+ dfil)/y end; 
x[n) := —(ce{n] X x{n—1] + d[n))/(b{n] + cfn] 
X gamma [n—1]}); 
for i := n step —1 until 2 do 
xfi — 1] := x{i] X gamma [i — 1] + xfi — 1] 
end trdiag 
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ALGORITHM 18 

RATIONAL INTERPOLATION BY CONTINUED 
FRACTIONS 

R. W. Fioyp 

Armour Research Foundation, Chicago, Illinois 


comment This procedure fits to m given points (x; , yi) a con- 
tinued fraction in the form 
ait (x—Xx1)/(ae+ (X—X2)/ (ast (K—X3)/+ ++ (X—Xm—1)/@m))+*+)) 
It.also simplifies the continued fraction to a rational function 
(NotNixt+-+++Neaegx9e#)/(Do+Dix+: +: +Dacex*8), 
where deg is at most m + 2; 
procedure confr(m,x,y,a,N,D); 
real array x,y,a,N,D; integer m; 
beginreal aa,xx,T; integeri,j,k; 
switch sw := swl, sw2; 
for j := 1 step 1 until mdo 
begin aa := y[j]; xx := x{j]; 
for i := 1 step 1 until j—1 do 
aa :=(xx—x[{i])/(aa—ali]); afj] := aa 
end; 
k:=1; P[0] :=1; Q[0] := afl]; 
mult : for j := 1 step 1 until m + 2 do P[j] := Q{j] := 0; 
for i := 2 step 1 until m do 
begin for j := 1+ 2 step —1 until 1 do 
begin T := afi] X Qlj] — xfi—1] X Pij] + PUi—4; 
Pij] := QU]; Qi) = T 
end; T := afi] X Q[0] — xfi—1] x P{0]; 
PO} := Q[0]; Q{o} := T 
end; go to swi{k]; 
swl : forj := Ostep1 until m + 2do N[j] := Qf]; 
k :=2; P(0):=0;Q[0) :=1; gotomult; 
sw2 :forj := Ostep1 until m + 2 do D[j] := Q[j] 
end procedure 


real array P,Q[O :m + 2 


CERTIFICATION OF ALGORITHM 18 
RATIONAL INTERPOLATION BY CONTINUED 
FRACTIONS 

[R. W. Floyd, Comm. ACM., Sept. 1960] 
Henry C. THacuer, Jr.* 
Reactor Engineering Div., 


Argonne, II. 
* Work supported by the U. 8. Atomic Energy Commission 


The body of procedure confr was tested with the ALGOL trans- 
lator system written for the LGP-30 computer by the Dartmouth 
College Computer Center. No syntactical errors were found in the 
procedure body, except for a missing semicolon after the array 
delearation. The translated algorithm gave satisfactory results 
when tested on values of (4% + 1)/(« + 4) at any three of the points 
x = 1, 2,3, 4. When all four points were used, a division overflow 
occurred in the statement for 1 := 1 step 1 until j—1 do aa := 
(zx — x{t])/(aa—alt]); which forms the reciprocal differences. An 
overflow of this type will occur whenever y[j] is approximated to 
high accuracy by one of the continued fractions based only on the 
points z[i],7 = 1,2, --- ,& with & less than j. Unless 7 = j—1, the 
difficulty may be overcome by setting aa equal to the largest real 
representable in the computer whenever division overflow would 


Argonne National Lab., 
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occur. Wnen 7 = j—1, the difficulty is irretrievable, and the data 
points must be reordered. 
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ALGORITHM 19 © . 

BINOMIAL COEFFICIENTS 

RicHarD R. Kenyon . me 

Computing Laboratory, Purdue University, Lafayette, 
Indiana ; 


comment — ' . This procedure computes binomial  coeffi- 
cients Cm = n!/m!(n — m)! by the re- 
cursion formula Ci, = (n — 1)C;"/(i + 1) 
starting from Co" = 1 
integer procedure C(m, n) 


? 


> 


integer m,n ; 
begin integer i, a,b ; 
a:=1 ; 
if 2X m > nthen b := n—m else 
b:=m ; 


for i := 0 step 1 until b do 
begin a := (n — i) X a + Gi + 1) end 
C:=a 

end Binomial Coefficients 


REMARK ON ALGORITHM 19 

RINOMIAL COEFFICIENTS (Richard R. Kenyon, 
Comm. ACM, Oct. 1960) 

BicHarp STEcK 

Armour Research Foundation, Chicago 16, Il. 


The for clause of Algorithm 19 should read: 
for i := 0 step 1 until b—1 do 


With this correction the algorithm was certified on the Armour 
Research Foundation Univac 1105. 
The recursion formula stated in the comment should read: 
Cir = (n—t) Ci"/G4+1). 


CERTIFICATION OF ALGORITHM 19 

BINOMIAL COEFFICIENTS [Richard R. Kenyon, 
Comm. ACM Oct., 1960] 

RicHARD GEORGE* 

Particle Accelerator Div., Argonne National Lab., Ar- 
gonne, Ill. 


* Work supported by the U.S. Atomic Energy Commission. 


This procedure was tested on the LGP-30, using the compiler 
ALGoL-30 from Dartmouth College Computation Center. The fol- 
lowing changes were found necessary: 

(1) Within the comment, the line: 


Ci = (n — 1)Ci*/G + 1) 
should be 
Cia = (n — 7)C"/(t + 1) 


(2) The line defining the iteration loop 
for i := 0 step leuntil 6 do 


should be 


for 1 := 0 step 1 until b—1 do 


(3) The sequence 


should be | 


end 


end 
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ALGORITHM 20 

REAL EXPONENTIAL INTEGRAL 

S. PEavy 

National Bureau of Standards, Washington 25, D.C. 


Ixxpint (x) ; real x ; 
—Ej\(-—x) = fz (e-¥/u) du is computed for 
x > 0 by approximation formulas. For 
0 <x < 1 the approximation is from E. E. 
Allen, Note 169, MTAC 66, pg 240 (1954). 
The second approximation formula is for 
1 < x< o and is from C. Hastings, Jr., 
‘Approximations For Digital Computers”’ 
(Princeton University Press, Princeton, 
New Jersey, 1955). The absolute error 
e(x) is {e(x)| << 2X 107 forO <x <1 
and |e(x)| < 2K 10% forl <x < © ; 
real y,w,z ; 
if x < 1 then 
z := (((( .00107857 X x — .00976004) x x 
+ .005519968) xX x — .24991055) x x 
+ .99999193) * x — .57721566 — In(x) 
else begin 
y := ((( x + 8.5733287401) * x 
+ 18.059016973) X x + 8.6347608925) x x 
+ .2677737343_ ; 
wi:= ((( x + 9.5733223454) & x 
+ 25.6329561486) * x 
+ 21.0996530827) * x + 3.9584969228 ; 
z := exp (—x) /x X (y/w) end 
Expint := z end 


real procedure 
comment 


begin 


REMARK ON ALGORITHM 20 

REAL EXPONENTIAL INTEGRAL (S. Peavy, Comm. 
ACM, October 1960) 

S. PEavy 

National Bureau of Standards, Washington, D. C. 


A printing error has been called to our attention by J. A. 
Beutler of E. I. duPont de Nemours and Co. Lines 15 through 17 
of Algorithm 20 should read 
z := ((((.00107857 « x — .00976004) x x 

-+ ,05519968) x x — .24991055) xX x 
-+ .99999193) & x — .57721566 — In (x) 


* Work supported by the U. 8. Atomic Energy Commission. 


CERTIFICATION OF ALGORITHM 20 

REAL EXPONENTIAL INTEGRAL (S. Peavy, Comm. 
ACM, Oct. 1960) 

WiiuiaM J. ALEXANDER* and Henry C. Tuacuer, Jr.* 

Argonne National Laboratory, Argonne, Illinois 


Expint (x) was programmed for the LGP-30 computer, using 
both a 7S floating-point compiler (ACT III) and an 8S floating- 
point interpretive code (24.2). Constants given to more than 78 


20-P 1- 0 


(or to 8S for the 24.2 program) were rounded to 78 (or 88). 

After changing the constant .005519968 to .05519968, both pro- 
grams gave acceptable accuracy over the range tested. 

The 88 (24.2) program was compared with the 9D values given 
for —E;(—x) in Mathematical Tables Project, Tables of Sine, 
Cosine, and Exponential Integrals, Volume II (1940) for the 
set of values x = 0.1(0.1)1.0(1.0)10.0. The largest discrepancy found 
was —16 X 10-* for x = 0.1. For x greater than 1, all values tested 
were good to 88. 

For computing real values of the exponential integral, this 
algorithm is much faster than EKZ (Algorithm 13). For x < 1, 
the ratio of speeds was of the order of 20. 


* Work supported by the U.S. Atomic Energy Commission. 
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ALGORITHM 21 
BESSEL FUNCTION FOR A SET OF INTEGER 
ORDERS 


W. Boérscu-SuPAn 
National Bureau of Standards, Washington 25, D. C. 


procedure BESSELSETINT (x,n,e,J) ; valuex,n,e ; 
real x,e ; integern ; realarrayJ ; 

comment: This procedure computes the values of the Bessel 
functions Jp(x) for real argument x and the set of all integer 
orders from 0 up to n and stores these values into the array J, 
whose subscript bounds should include the integers from 0 up 
ton. nmust be nonnegative. 

The computation is done by applying the recursion formula 
backward from p = k down to p = 0 as described in MTAC 11 
(1957), 255-257. k is chosen to yield errors less than 10-5 
approximately after the first application of the recursion. The 
recursion is repeated with a larger k until the difference be- 
tween the results of the two last recursions doesn’t exceed the 


given bound « > 0. The steps in increasing k are chosen in - 


such a way that the errors decrease at least by a factor of 
approximately 10-. There is no protection against overflow. ; 
begin real dist, recO, recl, rec2, sum, max, err ; 

integer k,p ; Booleans ; real array Jbar(0:n] ; 

if x = 0 then 
begin J[0] := 1 

go to Exit 

end ; 

dist := if abs(x) 2 8 then 5 X abs(x) f (1/3) else 10 ; 

k := entier ((if.abs(x) = n then abs(x) elsen) + dist) +1 ; 


; for p := 1 step 1 until n do J[p] : 


I 
a) 


s:= false ; 
Rec: recO0:=0 ; recl:=1 ; sum:=0 : 
for p := k step —1 until 1 do 
begin J{if p > n+ 1 then n else p — 1] := rec2 := 
2X p/x X recl — recO ; 
if p = 1 then sum := sum + rec2 
else if p + 2 X 2 ¥ p then sum := 
sum + 2 X rec2 ; 
recO := recl ; recl := rec2 
end recursion; 
Norm: for p := 0step1 until ndo J[p] := J[p]/sum_; 
if s then 
begin max :=0 ; 
for p := 0 step 1 until n do 
begin err := abs (J[p] — Jbar[p])_ ; 
if err > max then max := err 
end maximum error. ; 
if max S ¢ then go to Exit 
end _ then 
else s := true ; 
for p := 0step 1 until n do Jbar[p] := J{p]_ ; 
k := entier (k + dist) ; 
goto Rec ; 
Exit: end BESSELSETINT 
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CERTIFICATION OF ALGORITHM 21 [817] 
BESSEL FUNCTION FOR A SET OF INTEGER 
ORDERS 
[W. Borsch-Supan, Comm. ACM 3 (Nov. 1960), 600] 
J. Starrorp (Recd. 16 Nov. 1964) 
Westland Aircraft Ltd., Saunders-Roe Division, East 
Cowes, Isle of Wight, Eng. 


If this procedure is used with a combination of a moderately 
smal] argument and a moderately large order, the recursive evalu- 
ation of rec2 in the last line of the first column can easily lead to 
overflow. This occurred, for instance, in trying to evaluate 
J19(0.01). 

The following alterations correct this: 

(i) Declare a real variable z and an integer variable m; 
(ii) After line rec insert: 
z:= MAX/4 X abs (2/k); 
comment MAX is a large positive number approaching in 
size the largest number which can be represented. The nu- 
merical value of MAX/4 is written into the procedure; 
(iii) At the end of the first column insert: 
if abs(rec2) > z then 


begin 
recl := recl/z; rec2 := rec2/z; sum := sum/z; 
for m := n step —1 until p — 1 do J[m] := J[m]/z 
end; 


With these alterations the procedure was run on a National- 
Elliott 803, for z = —1, 0, 0.01, 1, 10 and n = 0, 1, 2, 10, 20. The 
-esults agreed exactly with published seven-place tables. 

[See also Algorithm 236, Bessel Functions of the First Kind 
(Comm. ACM 7 (Aug. 1964), 479) which is not restricted to inte- 
ger values. Although it is a much more complicated program, 
Algorithm 236 is slightly faster than Algorithm 21 as corrected, at 
least in some cases.—Ed.] 
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ALGORITHM 22 . 

RICCATI-BESSEL FUNCTIONS OF FIRST AND 
SECOND KIND 

H. Oser 

National Bureau of Standards, Washington 25, D. C. 


procedure RICCATIBESSEL (x, n, eps, 8, C) ; 
value x, n,eps ; 
real x, eps; integer n; real array 5,C_ ; 
comment: RICCATIBESSEL computes Sx (x) = (4x/2)! Juia(x) 
and C(x) = — (rx/2)? Yi43(x) for real x + 0 and all integer 
values of k from 0 through n with a prescribed (absolute) 
accuracy eps. The computation is done by using the recursion 
relations of the cylinder functions. For abs(x) > n both 8, (x) 
and C;(x) are computed by using the recursions for ascending 
orders. For n > abs(x) the functions 8,(x) are obtained by 
using the recursion in descending orders. (Sec StecunN- 
ABRAMOWITZ, MTAC 11, 1957, 255-257). Reaching out two 
different intervals beyond the order n, the two vectors 8,!(x) 
and S,?2(x) are checked if the maximum component of their 
difference meets the tolerance eps. If this is not the case 6 
maximum of 10 iterations is set up to achieve the required 
absolute accuracy. Initial values Symax and Sxmax-1 for the 
backward iteration are computed from the corresponding 
values Cymax. aNd Cimax. No check of accuracy is done in 
case n < abs(x). Both C,(x) and S,(x) are affected in this 
case by errors of the same order of magnitude as the sub- 
routines for sin (x) and cos (x) ; 
begin real rl, r2, r3, r4, r5, r6, step, acc, max, a,b, dl, d2_ ; 
integer i,k, 1, imax ; . 
_ real array Wlo:n] ; 
switch P := initial, improve; 
ace: = 6 ; 
step: = 33; 
imax: = 10 ; 
comment: These constants may be chosen differently, but 
caution has to be taken because of overflow. acc sets an 
initial iteration to give roughly a 6-place accuracy. 
Subsequent iterations should improve the result to 3 more 
places each ; 
icvl ; 
if x = 0 then go to exitl ; 
if n < abs(x) then 
casel: begin rl:= —sin(x) ; r2:=1r4:= C(O) :=cos(x) ; 
r5 := S(O] := sin(x) ; 
for k := 1 step 1 until n do 
begin C[k] := 13 := (2Xk—1) K r2/x —rl1 ; 
S[k] := r6 := (2Xk-—1) X r5/x — r4_ i; 


rl :=1r2 ; r2:m@1r3 ; 
r4:=r5 ; rd := r6 
endk ; go to finish 
end casel_ ; 


case2: 1:=1 ; rl: —sin(x) ; 12: C(O] := cos(x) ; 
for k := 1 step 1 until n do 
begin C[k] := r3 := (2Kk—-1) X r2/x — rl; 

rl := 12 ; 

r2 := 13 


loop: 


initial: 
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for k := 1+n step 1 until if abs(x) S 11 


then 12+a else 2Xa+1 do 


begin r3 := (2Xk—1) K r2/x -rl_ ; 
if abs(r3/C[n]) > acc then gotoS ; 
rl := r2 ; 
2:=r3 ; 


comment: This loop is most liable to cause 
overflow ; 


end loop ; 

k := if abs(x) S 11 then 12+a else2Xa+1 ; 
r2:=rl ; 

r6 := x f 2/(4Xk 7 2&r2) ; 

r5:= 1/r3_ ; 

goto Pil] ; 


for k := k step —1 until 2 do 
begin W[if k>n+2 then n else k—2] := r4 := 
(2Xk-1) X r5/x — 16; 
r6:=r5 ; 
rh i= r4 
end ; 
dl := r5/x — r6 ; 
d2 := if abs(W[0]) = 
abs(d1) then sin(x)/W(0] else cos(x)/dl_ ; 
for k := 0 step 1 until n do 
W(k] := d2xW[k] ; 
acc := step X ace; 
li=2 ; 
a:= a+ step (1/3) ; 
r2:= C{n] ; 
rl := C{n—1] ; 
gotoloop ; 


improve:. for k := k step —1 until 2 do 


exitl: go to finish 


begin Sif k > n+2 then n else k—2] := r4:= 
(2Xk—1) X r5/x—r6_ CO; 
rG6:=1r5 ; 
ro := r4 
endk ; 
dil := r5/x — r6 ; 
d2 := if abs(S[0]) 2- 
abs(d1) then sin(x)/S[0] else cos(x)/dl_ ; 
max := 0 ; 
for k := 1 step 1 until ndo 
begin S[k] := d2xSj[k] ; 
b := abs(S{k] — W[kl)_ ; 
if b > max then max := b 
end ; 
if max < eps then go to finish _; 
for k:= 0 step 1 until n do W[k} := S[k]; 
acc := step X ace ; 
if i 2 imax then go toexit2 ; 
i=i+tl ; a:=a+stepf(/) ; 
r2:= C[n) ; rl:=C{n—1] ; gotoloop ; 
; comment: x = 0 ; 


exit2: goto finish ; 


finish: 


comment: maximum number of iterations reached ; 
end RICCATIBESSEL 
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RICATTI-BESSEL FUNCTIONS OF FIRST AND 
SECOND KIND [H. Oser, Comm. ACM 8 (Nov. 
1960), 600] 

Tuomas Bray (Recd. 9 Mar. 1970) 

Boeing Scientific Research Laboratories, Seattle, WA 
98124 


KEY WORDS AND PHRASES: Ricatti-Bessel functions, Bessel 
functions of fractional order, spherical Bessel functions 
CR CATEGORIES: 5.12 


The procedure was translated into FORTRAN IV and run on 
an IBM 360/44 using double precision arithmetic (15 significant 
decimal digits). One error was discovered in the algorithm. The 
tenth line following the line with the label ‘‘improve”’ reads: 


for k := 1 step 1 until n do 
This line should read: 
for k := 0 step 1 until n do 


The results S;(z)/x and —C;(x)/xz were computed using this cor- 
rection and compared with Tables 10.1, 10.2 and 10.5 of [1]. The 
results agreed to the number of digits given in the tables for: 

z k 


0(1)8 
0(1)8 
0(1)20 
0(1)8 
0(1)50 
0(1)8 
0(1)50 
0(1)100 
0(1)100 


_ 
On ON ES OO 
CDeoacrdour 


—_ 
Ss 
Qo 


REFERENCES: 
1. ApramowitTz, M., AND Steaun, I. A. Handbook of Mathematical 


Functions. Appl. Math. Ser. 55, Nat. Bur. Standards US Govt. | 


Print. Off., Washington, D.C., 1964. 
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ALGORITHM 23 
MATH SORT 
WALLACE FEURZEIG 
Laboratories for Applied Science, University of Chicago, 
Chicago, Il. 
procedure MATHSORT (INVEC, OUTVEC, TOTEVEC, 
n,k, SETFUNC) ; valuen,k ; 
array INVEC, OUTVEC ; 
integer array TOTEVEC ; 
integer procedure SETFUNC ; 
integer n, k_ ; 
begin comment MATHSORT is a fast sorting algorithm which 
produces a monotone rearrangement of an arbitrarily ordered 
set of n numbers (represented by the vector INVEC) by a 
surprising though familiar device. The resultant sorted set is 
represented by the vector OUTVEC. The key field, i.e. the 
ordered set of bits (or bytes) on which the sort is to be done, 
is obtained by some extraction-justification function denoted 
SETFUNC. The key field allows the representation of k pos- 
sible values denoted 0,1, ... ,k—1. 

The procedure determines first of all the exact frequency 
distribution of the set with respect to the key, i.e. the number 
of elements of INVEC with key field value precisely equal to 
) for all j between 0 and k—1. The cumulative frequency dis- 
tribution TOTEVEC [i] = Dd j-0 (Number of elements of 
INVEC with key value = j) is then computed for0 Sis k—1. 
This induces the direct assignment (storage mapping func- 
tion) of each element of INVEC to a unique cell in OUTVEC. 
This assignment (like the determination of the frequency 
distribution) requires just one inspection of each element of 
INVEC. Thus the algorithm requires only 2n “look and do” 
operations plus k—1 additions (to get the cumulative fre- 
quency distribution). 

The algorithm can be easily and efficiently extended to 
handle alphabetic sorts or multiple key sorts. To sort on 
another key the same algorithm is applied to each new key 
field with the new INVEC designated as the last induced 
ordering (i.e. the current OUTVEC). The algorithm has been 
used extensively at LAS on binary as well as decimal machines 
both for internal memory sorts and (with trivial modification) 
for large tape sorts ; 
for i:=1stepluntilndo 

TOTEVEC[SETFUNC(INVEC[i])] := TOTEVEC 
{SETFUNC(INVEC[i])] +1. ; 
for i:= 1lstep1 until k—1do 
TOTEVECIi] := TOTEVEC[i] + TOTEVEC[i-1] ; 
for i:= 1step1 untilndo 
begin OUTVEC(TOTEVEC|(SETFUNC(INVEC{i])]] 
:= INVECIi]  ; 
TOTEVEC([SETFUNC(INVECIi])] := 
TOTEVEC[SETFUNC(INVECI])] — 1 ; 
end 


end MATHSORT. 
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CERTIFICATION OF ALGORITHM 23 

MATHSORT (Wallace Feurzeig, Comm. ACM, Nov., 
1960) 

RussELL W. RansHaw 

University of Pittsburgh, Pittsburgh, Pa. 


The MATHSORT procedure as published was coded for the 
IBM 7070 in Fortran. Two deficiencies were discovered: 
1. The TOTVEC array was not zeroed within the procedure. 
This led to some difficulties in repeated use of the procedure. 
2. Input vectors already in sort on nonsort fields were unsorted. 
That is, given the sequence 
31, 21, 32, 22, 33, 
Mathsort would produce, for a sort on the 10’s digit: 
22, 21, 33, 32, 31, 
which is definitely out of sequence. 
The following modified form of the procedure corrects these 
difficulties. Note the transformation of symbols. 


procedure MATHSORT (I, O, T, n, k, 8); value n, k; 
array I,O; integer array T; integer procedure 8; 
integer n, k; 
fori := 0 step 1 until k — 1 do T[i] := 0; 
fori := 1 step 1 until n do T(S(I[i])] := T(S([i])] + 1; 
for i := k — 2 step —1 until 0 do T[i] := Tfi] + 
Tli + 1); 
for i := 1 step 1 until n do 

begin O[n + 1 — TIS(fi))]] := Ifil; 

T(S([i})] := TIS(fi])] — 1; 


begin 


end 
end MATHSORT. 


Using the MATHSORT procedure ten times and having the 
procedure § supply each digit in order, 1000 random numbers of 
10 digits each were sorted into sequence in 31 seconds. The method 
of locating the lowest element, interchanging with the first ele- 
ment, and continuing until the entire list has been so examined 
yielded a complete sort on the same 1000 random numbers in 227 
seconds. Using the Table-Lookup-Lowest command in the 7070 
yielded 56 seconds for the same set of random numbers. 
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ALGORITHM 24 


SOLUTION OF TRI-DIAGONAL LINEAR EQUA- 
TIONS 
B. LEAVENWORTH 


American Machine & Foundry Co., Greenwich, Conn. 


procedure TRIDAG (n, A,B,C, D) ; integern ; 

array A,B,C,D ; 

comment: This procedure! finds the solution of ann X n system 
of linear equations whose matrix is in tridiagonal form, that 
is, aij = O for [i — j| = 2. Parameters are: the main diagonal 
Bp, the diagonal just beldw A,, the diagonal just above C,, 
the right-hand side D: (where p= 1,...,n andr=1,..., 
n— 1) and the matrix order n. The solution vector replaces 
the input vector D and the vector B is also destroyed in the 
process ; 

begin 
realw ; integerj ; 
D{l} := D[1]/Bfl] ; w := Bil] 
for j] := 2 step 1 until n do 

begin B[j — 1] := C{j —1]/w ; w:= Bij) — Alj — 1) 
xX Bi — 1) ; 
Dij] := (Di) — Alj — 1) X Dj — 1))/wend ; 
for j] := 1 step 1 until n — 1 do 
D{n — j] := D{n— j] — BIn— j] X Din-j +) 
end TRIDAG 


? 


1D. W. PeacemMAN anv H. H. Racurorp, Jr., The Numerical 
Solution of Parabolic and Elliptic Differential Equations, Journal 
of the Soc. for Ind. and Applied Math. Vol. 3 March 1955. 
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ALGORITHM 25 

REAL ZEROS OF AN ARBITRARY FUNCTION 
B. LEAVENWORTH 

American Machine and Foundary Co., Greenwich, Conn. 


procedure ZEROS(n, C, FUNCTION, m, epl, ep2, ep3, eta) ; 

tateger n,m ; realepl, ep2.ep3,eta ; array C ; 

procedure FUNCTION ; 

comment: This procedure finds the real zeros of an arbitrary 
function using Muller’s method! ? and is adapted from a 
FORTRAN code by Frank.? Each iteration determines a zero 
of the quadratic passing through the last three function 
values. Parameters include the number of roots desired n. 
If C; is zero, starting values are —1, 1, 0 respectively. If 
C; = 6 then the starting values are .98, 1.18, 8. The procedure 
FUNCTION (rt, frt) must be supplied to evaluate the func- 
tion value frt, given the argument rt. m is the maximum 
number of iterations permitted. epl is the relative coriver- 
gence criterion on successive iterates. ep2 is the absolute 
convergence criterion on the function value. eta is the spread 
for multiple roots, that is, if [rt — C;| < ep3 where C; is a 
previously found root, then rt is replaced by rt + eta ; 

begin integer L, jk, i, mm ; real p, pl, p2, x0, xl, x2, rt, 

frt, prt, d, dd, di, h, bi, den, dn, dm, tem : 

switch S : S81, 82, 83,S4 ; 
for L := i step 1 until m do 
begin jk :=0 ; if C[{L] = 0 then go to initial else 
go to assign ; 

initial: p:=—-1 ; pl:=1 ; p2:=0 ; gotostart ; 

assign: p:= 9X C[L] ; pl:=11x*C(L] ; p2:=C([L] ; 

start: rt:= p ; gotofn ; 

enter: go to Slif jk < 4 then jk else 4] ; 

Sl: rt:= pk ; x0:=fprt ; gotofn ; 

S2: rt:=p2 ; xlb:=fprt ; gotofn ; 

$3: x2:=—fprt ; h:= if C[L] = 0 then —1 
else —.1 X C{[L] ; d:=—.5 ; 

loop: dd:=1+d ; bi := x0X dt2— xl xX ddf2 xX x2X 

(dd+d) ; 

den := bi f 2 — 4X x2 Xd X ddX (x0 X d— 
if den < 0 then den := 0 else den := sqrt(den) 
dn := bi+ den ; dm := bi—den ; 
if abs(dn) S abs(dm) then den := dm else den := dn ; 
if den = Othen den :=1 ; 
di :=—2 X x2 dd/den ; h:=dixh ; 
go to if abs(h/rt) < epl then callelsefn ; 

34: if abs(fprt) < abs(x2 X 10) then 
begin x0 := xl ; xl := x2 ; x2:=—fprt ; d:=di ; 
go to loop end else begin di := diX .5 ; h:=hX 5 ; 
tt:=rt—~h ; gotofnend ; 

fn: jk:=jk+1 ; ifjk<mthenmm :=1lelsemm:=0 ; 

call: FUNCTION (rt, frt) ; if mm = 1 then go to compute 
else go to root ; 

compute: fprt := frt ; 
for i := 2 step 1 until L do 
begin tem := rt— Cfi— 1] ; if abs(tem) < ep3 then go to 
change else fprt := fprt/tem end 

test: if abs(frt) < ep2 A abs(fprt) < ep2 then go to root 
else go to enter 


ro:=rt+th ; 


(x1 Xdd) + x2) 5 
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change: rt:=rt+eta ; jk:=ik—1 ;gotofn ; 
root: C[{L] := rt end L 
end ZEROS 


1D. E. Muuzuer, A Method for Solving Algebraic Equations 
Using an Automatic Computer, MTAC 10 (1956). 

2 W.L. Frank, Finding Zeros of Arbitrary Functions, J. ACM 
5 (1958). 

2 W. L. Frank, RWGRT, General Root Finder 704 FortRAN 
Source Language Subroutine Saare Distribution # 635. Param- 
eters used by Frank are: epl = 10°, “ep2 = 10°”, ep3 = 10°”, 
eta = 10-3. 


REMARK ON ALGORITHM 25 

REAL ZEROS OF AN ARBITRARY FUNCTION 
(B. Leavenworth, Comm. ACM, November 1960) 

Rosert M. CouLincEe 

Burroughs Corporation, Pasadena, California 


On attempting to use this algorithm, I discovered the two fol- 
lowing errors: 
(1) The line following the SWITCH statement ‘should read: 
for L := 1 step 1 until n do 
(2) The line starting with the label loop: should read: 
loop: dd := 1l+d ; bi=x0X df2— xl X ddf2 
+ x2 xX (dd+d) ; 
With these two modifications incorporated the algorithm was 
translated into the language of the Burroughs Algebraic Com- 
piler and has been used successfully on the Burroughs 220 Com- 
puter. 


REMARKS ON ALGORITHMS 2 AND 3 (Comm. 
ACM, February 1960), ALGORITHM 15 (Comm. 
ACM, August 1960) AND ALGORITHMS 25 AND 26 
(Comm. ACM, November 1960) 

J. H. WILKINSON 

National Physical Laboratory, Teddington. 


Algorithms 2, 15, 25 and 26 were all concerned with the cal- 
culation of zeros of arbitrary functions by successive linear or 
quadratic interpolation. The main limiting factor on the accuracy 
attainable with such procedures is the condition of the method 
of evaluating the function in the neighbourhood of the zeros. 
It is this condition which should determine the tolerance which is 
allowed for the relative error. With a well-conditioned method of 
evaluation quite a strict convergence criterion will be met, even 
when the function has multiple roots. 

For example, a real quadratic root solver (of a type similar to 
Algorithm 25) has been used on ACE to find the zeros of triple- 


diagonal matrices T having tii = ai, tin,i = bin, tii = 
Ci+:. As an extreme case I took a1 = & = --- =a, = 0, ao = 
a=) = ay = 1, an = 2, bi = 1, c; = 080 that the func- 


tion which was being evaluated was x'(x — 1)§(x — 2). In spite 
of the multiplicity of the roots, the answers obtained using float- 
ing-point arithmetic with a 46-bit mantissa had errors no greater 
than 2, Results of similar accuracy have been obtained for the 
same problem using linear interpolation in place of the quadratic. 
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This is because the method of evaluation wnich was used, the two- 
term recurrence relation for the leading principal minors, zs a 
very well-conditioned method of evaluation. Knowing this, I was 
able to set a tolerance of 2~% with confidence. If the same function 
had been evaluated from its explicit polynomial expansion, then 
a tolerance of about 2-7 would have been necessary and the mul- 
tiple roots would have obtained with very low accuracy. 

To find the zero roots it is necessary to have an absolute toler- 
ance for | x:41 — xr | as well as the relative tolerance condition. 
It is undesirable that the preliminary detection of a zero root 
should be necessary. The great power of rootfinders of this type 
is that, since we are not saddled with the problem of calculating 
the derivative, we have great freedom of choice in evaluating the 
function itself. This freedom is encroached upon if we frame the 
rootfinder so that it finds the zeros of x = f(x) since the true func- 
tion x — f(x) is arbitrarily separated into two parts. The formal 
advantage of using this formulation is very slight. Thus, in Certi- 
fication 2 (June 1960), the calculation of the zeros of x = tan x 
was attempted. If the function (—x -+ tan x) were used with a 
general zero finder then, provided the method of evaluation was, 
for example : 


x=nr+y 
yr oy 
aan ee 
tan x — x = —nar + —-—_—__, 
cos y 


the multiple zeros at x = 0 could be found as accurately as any 
of the others. With a slight modification of common sine and co- 
sine routines, this could be evaluated as 


(sin y — y) — ycosy — 1) 
1 + (cos y — 1) 


and the evaluation is then well-conditioned in the neighbourhood 
of x = 0. As regards the number of iterations needed, the re- 
striction to 10 (Certification 2) is rather unreasonably small. 
For example, the direct evaluation of x® — 1 is well conditioned, 
but starting with the values x = 2 and x = 1.5 a considerable 
number of iterations are needed to find the root x = 1 Similarly 
a very large number are needed for Newton’s method, starting 
with x = 2. If the time for evaluating the derivative is about the 
same as that for evaluating the function (often it is much longer), 
then linear interpolation is usually faster, and quadratic inter- 
polation much faster, than Newton. 

In all of the algorithms, including that for Bairstow, it is use. 
ful to have some criterion which limits the permissible change 
from one value of the independent variable to the next [1]. This 
condition is met to some extent in Algorithm 25 by the condition 
S4, that abs(fprt) < abs(x2 X 10), but here the limitation is 
placed on the permissible increase in the value of the function 
from one step to the next. Algorithms 3 and 25 have tolerances on 
the size of the function and on the size of the remainders rl and 
rQ respectively. They are very difficult tolerances to assign since 
these quantities may take very small values without our wishing 
to accept the value of x as a root. In Algorithm 3 (Comm. ACM 
June 1960) it is useful to return to the original polynomial and to 
iterate with each of the computed factors. This eliminates the loss 
of accuracy which may occur if the factors are not found in in- 
creasing order. This presumably was the case in Certification 3 
when the roots of x® + 7x‘ + 5x3 + 6x? + 3x +2 =0 were 
attempted. On ACE, however, all roots of this polynomial were 
found very accurately and convergence was very fast using single- 
precision, but the roots emerged in increasing order. The reference 
to slow convergence is puzzling. On ACE, convergence was fast 
for all the initial approximations to p and q which were tried. 
When the initial approximations used were such that the real 
root x = —6.35099 36103 and the spurious zero were found first, 
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the remaining two quadratic factors were of lower accuracy, 
though this was, of course, rectified by iteration in the original 
polynomial. When either of the other two factors was found first, 
then all factors were fully accurate even without iteration in the 
original polynomial [1]. 


REFERENCE 


(1] J. H. Wiikinson. The evaluation of the zeros of ill-conditioned 
polynomials Parts I and II]. Num. Math. 1 (1959), 150-180. 
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ALGORITHM 26 

ROOTFINDER III (Modification of Algorithm 15. 
Rootfinder II, Henry C. Thacher, Jr., Comm. ACM, 
August 1960) 

Joun G. Herriot, Stanford University, Stanford, Cali- 
fornia 


procedure ROOTIII (f, a, eps, n, g,e,m) ; 
real procedure f ; real a, eps, g,c ; 
comment ROOTIII computes a value of g = y satisfying the 
equation y = f(y). The iteration will converge to Y providing 
that at some time in the iteration a g is reached such that 
abs(g — Y) X abs(d(df/dy)/dy) < 2 X abs((df/dy) — 1), 
where the derivatives are evaluated at Y. Input includes: 
(1) f, a procedure for computing f(y), (2) a, an initial ap- 
proximation to the root, (3) eps, a tolerance for the relative 
error in g, and (4) n, a maximum number of iterations to be 
performed. Output includes: (1) g, the required root, (2) 
c = f(g) — g, (83) m, a parameter indicating the success of 
the procedure. If the tolerance was not met m < 0. The num- 
ber |m| — 1 gives the number of times that the correction to g 
exceeded the preceding one. If f(y) — y has the same value 
for two successive approximations to g, then h = 1, and we 
exit to “alarm’’, a nonlocal label. Alarm should provide a 
means of deciding whether g is an acceptable root or not. ; 
begin integer j ; real b,d,h_ ; 
m:=1 ; j:=0 ; c:=0 ; 
if {(0) = 0 then begin g :=0 ; 
goto returnend ; 
g:=f(a) ; b:=d:=c:=g-a ; 
if c = 0 then go to return ; 


integer n,m ; 


for j} := 1 step 1 until n do 

begin c := f(g) -—g ; 
if abs(c) S$ abs(g) X eps then goto return ; 
h := h/e ; 


if h = 1 then goto alarm =; 
ifh>OAh<2thenm:=m+1 ; 


d:=d/(h-—1) ; b:=c ; g:=g+d 
end iteration ; 
m :=—m ; return : end 


REMARKS ON ALGORITHMS 2 AND 3 (Comm. 
ACM, February 1960), ALGORITHM 15 (Comm. 
ACM, August 1960) AND ALGORITHMS 25 AND 26 
(Comm. ACM, November 1960) 

J. H. WILKINSON 

National Physical Laboratory, Teddington. 


Algorithms 2, 15, 25 and 26 were all concerned with the cal- 
culation of zeros of arbitrary functions by successive linear or 
quadratic interpolation. The main limiting factor on the accuracy 
attainable with such procedures is the condition of the method 
of evaluating the function in the neighbourhood of the zeros. 
It is this condition which should determine the tolerance which is 
allowed for the relative error. With a well-conditioned method of 
evaluation quite a strict convergence criterion will be met, even 
when the function has multiple roots. 
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For example, a real quadratic root solver (of a type similar to 
Algorithm 25) has been used on ACE to find the zeros of triple- 
diagonal matrices T having tii = ai, tii = bin, 
Ci41 . AS an extreme case I took a; = ag = --- = as = 0, ag = 
a=: =ano=1, an = 2, bi = 1, ci = 080 that the func- 
tion which was being evaluated was x5(x — 1)§(x — 2). In spite 
of the multiplicity of the roots, the answers obtained using float- 
ing-point arithmetic with a 46-bit mantissa had errors no greater 
than 2. Results of similar accuracy have been obtained for the 
same problem using linear interpolation in place of the quadratic. 
This is because the method of evaluation which was used, the two- 
term recurrence relation for the leading principal minors, is a 
very well-conditioned method of evaluation. Knowing this, I was 
able to set a tolerance of 2~ with confidence. If the same function 
had been evaluated from its explicit polynomial expansion, then 
a tolerance of about 27 would have been necessary and the mul- 
tiple roots would have obtained with very low accuracy. 

To find the zero roots it is necessary to have an absolute toler- 
ance for | xr41 — xr | as well as the relative tolerance condition. 
It is undesirable that the preliminary detection of a zero root 
should be necessary. The great power of rootfinders of this type 
is that, since we are not saddled with the problem of:calculating 
the derivative, we have great freedom of choice in evaluating the 
function itself. This freedom is encroached upon if we frame the 
rootfinder so that it finds the zeros of x = f(x) since the true func- 
tion x — f(x) is arbitrarily separated into two parts. The formal 
advantage of using this formulation is very slight. Thus, in Certi- 
fication 2 (June 1960), the calculation of the zeros of x = tan x 
was attempted. If the function (—x + tan x) were used with a 
general zero finder then, provided the method of evaluation was, 
for example 


tiin = 


x=nrt+y 
y> y° 
3 30 
tan x — x = —n« + ————" ; 
cos y 


the multiple zeros at x = 0 could be found as accurately as any 
of the others. With a slight modification of common sine and co- 
sine routines, this could be evaluated as 


(sin y — y) — yleos y — 1) 
1 + (cos y — 1) 


and the evaluation is then well-conditioned in the neighbourhood 
of x = 0. As regards the number of iterations needed, the re- 
striction to 10 (Certification 2) is rather unreasonably small. 
For example, the direct evaluation of x® — 1 is well conditioned, 
but starting with the values x = 2 andx = 15a considerable 
number of iterations are needed to find the root x = 1. Similarly 
a very large number are needed for Newton’s method, startin: 
with x = 2. If the time for evaluating the derivative is about the 
same as that for evaluating the function (often it is much longer), 
then linear interpolation is usually faster, and quadratic inter- 
polation much faster, than Newton. ; 

In all of the algorithms, including that for Bairstow, it is use 
ful to have some criterion which limits the permissible change 
from one value of the independent variable to the next [1]. This 
condition is met to some extent in Algorithm 25 by the condition 
$4 that abs(fprt) < abs(x2 X 10), but here the limitation is 
placed on the permissible increase in the value of the function 
from one step to the next. Algorithms 3 and 25 have tolerances on 
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the size of the function and on the size of the remainders rl and 
r0 respectively. They are very difficult tolerances to assign since 
these quantities may take very small values without our wishing 
to accept the value of x as a root. In Algorithm 3 (Comm. ACM 
June 1960) it is useful to return to the original polynomial and to 
iterate with each of the computed factors. This eliminates the loss 
of accuracy which may occur if the factors are not found in in- 
creasing order. This presumably was the case in Certification 3 
when the roots of x5 + 7xt + 5x3 + 6x? + 3x + 2 = 0 were 
attempted. On ACE, however, all roots of this polynomial were 
found very accurately and convergence was very fast using single- 
precision, but the roots emerged in increasing order. The reference 
to slow convergence is puzzling. On ACE, convergence was fast 
for all the initial approximations to p and q which were tried. 
When the initial approximations used were such that the real 
root x = —6.35099 36103 and the spurious zero were found first, 
the remaining two quadratic factors were of lower accuracy, 
though this was, of course, rectified by iteration in the original 
polynomial. When either of the other two factors was found first, 
then all factors were fully accurate even without iteration in the 
original polynomial [1]. 
REFERENCE 


[1] J. H. Wrtxinson. The evaluation of the zeros of ill-conditioned 
polynomials Perts I and II. Num. Math. 1 (1959), 150-180. 
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ALGORITHM 27 if rs S$ rl then go to LABEL =; 
ASSIGNMENT comment: 
RENORMALIZE ; 
ROLAND SILVER : : ; : 
; . sw:=1l ; cl0:=ecl ; cbl:=0 ; 
MIT Lincoln Laboratory,* Lexington, Massachusetts for j := 1 step 1 until n do 
begin if lambda[j] ~ Othen goto J3_ ; 
procedure Assignment(d, n, x) ; value n ; integer n ; ebi := cbl + 1 ; cb[ebl] := j 
array d ; integer array x ; J3: end j ; 
comment: Assignment determines that permutation x of the min := alr[iJ, cb{i]] ; 
integers [l:n] for which the sum (i := 1(1)n) of for k := 1 step 1 until rl do 
the elements d[i, x[{i]] of the n X n matrix d is a begin 
minimum. n 2 2. For more complete information for 1 := 1 step 1 until cbl do if a[r{k], cb{l]] S$ min 
see: An Algorithm for the Assignment Problem, then min := alr[(k], cb[]]] 
Roland Silver, Comm. ACM, Nov. 1960, p. 605 ; endk_ ; 
begin for i := 1 step 1 until ndo 
switch Switch := NEXT, Ll, NEXT1, MARK ; begin if mu[i] # 0 then goto 12 ; 
array alin, I:n]_ ; for | := 1 step 1 until clO do ali, c{l]] := ali, e[l]] + min ; 
integer array c[l:n], cb[l:n], lambda[l:nj, mu[I:n]J, goto [3 ; 
r[l:n], y({I:n) ; lz: for 1 := 1 step] until cbl do 
integer cbl, el, clO, i, j, k, 1, rl, rs, sw ; begin ali, cb{l]] := ali, cb[l]] — min; 
comment: go to Switch[sw] ; 
INITIALIZF ; NEXT: if ali, cb[{l] ~ 0 V lambda[cb[l|] ~ Othen go to Li ; 
for i := 1 step 1 until n do lambda[eb[l]] := i ; 
begin min := d[i, 1] : if y[eb[{l]] = 0 then 


begin j := cb{l] ; sw:=2 ; goto Liend ; 


Be a 1 until n do if d[i, j] < min then min eet e-elelecuihe 
for j := 1 step | until n do ali, j] := d{i, j] — min rh:= rl +1 5 rfrl} := ylebfll] ; 
end i ; Li: end! ,; 
for} := lstep1 until ndo BS end ace 
begin min := all, j] ; go to Switch[sw +2] ; 
for i=) tee 1 antl 66 ites oe ' WEXTI1: if cl0 = cl then goto LABEL ; 
ate ali 1. = Bape ed) sen thee ane fori := cl0 + 1 step 1 until cl do mufy(cfi]]] := efi]; 
for i := 1 step 1 until n do ali, j}] := ali, j] — min goto LABEL: °3 
end j_; MARK: comment: mark new column and permute_ ; 
for i := 1 step 1 until ndo x{i] := y[iJ:=0  ; ylj] := i := lambdaij] ; soo 
for i := 1 step 1 until n do if x{i] = 0 then begin x[i] := ] ; go to 
begin START end ; 
for } := 1 step 1 until n do kiej 5 jim xfil 5 xfilrek 5 
hegin go es MARK 
a : P d i nt 
if ali, j] ¥ 0 V xli] #0 V y[j] #0 then go to JI ; ae . 
xi} := j > yO) := i * Operated with support ¥rom the U. 8. Army, Navy and Air 
Ji: endj ; Force. 
di ; une ‘ 

START at as Btare labeling: [NoreE: The reader should distinguish between the letter 
rhi=cl:=0 ; rs:=1 ; and the figure 1, both of which appear in the above al- 
fori := 1 step 1 until ndo gorithm.—Ed.] 

begin mu[i] := lambdali] := 0 ; 
if x[i] ~ Othen gotolIl ; 
rh:=rl-+1 3; rfrl]:=i ; mufi]:= —1 

Il: endi ; CERTIFICATION OF ALGORITHM 27 

LABEL: comment: Label and sean_ ; ASSIGNMENT [Roland Silver, Comm. ACM, Nov. 1960] 
vse oe - aT ae ALBERT NEWHOUSE 
or) := 1 step 1 until ndo . : 7 

Bauih if ali, 1h 42 0 ora bani) oo Ooeencas University of Houston, Houston, Texas 

to J2 ; The ASSIGNMENT algorithm was translated into MAD and 
lambda[j]}:=i ; cl:=cl+1 ; cflel] :=j_ ; successfully run on the IBM 709/7094 after the following correc- 
if y{j] = 0 then go to MARK =; tions were made: 


rh:=rl+1 3; rfrl) := y{j]) ; muly{j]|:=i 
J2: endj ; 


COLLECTED ALGORITHMS (cont.) 


All references to array a and d refer to the same array, i.e. FROM 
change all a[z, j] to d{z, j]. Furthermore: TO 
(a) 3rd line after LABEL: comment: Label and scan; 

should read 
begin if d{i, j] ~ 0 V lambda [j] # 0 then go 
(b) first line after J3: end j; 
should read 
min := d[r[l], cb[1]]; 
{c) line J2: 
should read 
12: for l := 1 step 1 until cbl do 

Since there is no provision made for this algorithm to end the 

following additions were made: 
(1) in the integer declaration add the variable: flag 
(2) first line after START: comment: --- 
add the line 
flag := n; 
(3) first line before J1: end 7; 
change to read 
rh:= rl +1; r[rl]} := 74; mult] := —1; flag := flag — 1 
(4) add a line after J/: end 7; 
if flag = n then go to FINI; 
(5) change the last line of the algorithm to read: 
FINI: end Assignment 

In order to obtain the minimum value of the }>?.1 aiz; (in the 
following called total) the following additions may be made: 

Add a real variable total and 
(A) new line after INITIALIZE; 

total := 0; 
G3) new line after the first end 7; 
total := total + min; 
(C) new line after the first end j; 
total := total + min; 
(D) after the line end k; after J3: end i: 
add the line 
totel := total + (ri+ebl—n) K min; 


CERTIFICATION OF ALGORITHM 27. . 

ASSIGNMENT [Roland Silvers, Comm. ACM 3, Nov. 
1960]. 

Rosert J), Wirry 

Burroughs Corp., Detroit, Mich. 


Assignment was successfully run on the Burroughs B5000 using 
Burroughs extended ALGou 60. 


Input Array 
60 90 0 7 0 0 
0 40 18 O 60 24 
60 16 2 4 0 40 
0 27 18 3 55 75 
0 40 62 16 11 358 
28 4 10 84 O 16 


Solution Vector: X (6, 4, 3, 1, 5, 2) 


The following changes were made in the algorithm prior to its 
successful run: 


FROM MIN. := a(r[t], ebd[2]]; 

TO MIN := a(r{1), eb(1]]; 

FROM if X{i) = 0 then begin X{i] := 9; 

go to START end; 
TO if X{i] = 0 then begin X[i] := 7; 
for 1 := 1 step 1 until N do begin if X{z] = 0 then go 
to START; 
end; goto EXIT; end; 


end ASSIGNMENT 
EXIT: end; ASSIGNMENT 
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ALGORITHM 28 

LEAST SQUARES FIT BY ORTHOGONAL POLY- 
NOMIALS 

Joun G. MACKINNEY 

General Kinetics Incorporated, Arlington 6, Virginia 


procedure LSFIT (f,.xl, xm, m, k, alpha, beta, sigma,s,p) ; 
value xl, xm, m, k ; real xl, xm ; integer 
m,k ; 
real array f, alpha, beta, sigma, 8, p ; 
comment LSFIT accepts m values of the function f at equal 
intervals of the abscissa from x1 through xm, and obtains in 
p{0] through p[k] the coefficients of the best polynomial ap- 
proximation of degree k or less (least squares) as programmed 
by George E. Forsythe, Journal SIAM 6, no. 2, June 1957, 
with only minor variations. The output values alpha [1:k], 
beta {0:k], and s [(0:k] enable the user to make final adjust- 
ments to the results, according to the statistic sigma [0:k]. 
LSFIT uses the procedure POLYX (a, b, c, d, n) to trans- 
form its results from the interval (—2, 2) to the interval (x1, 
xm) ; 
begin integer i, j ; real dummy, x, xone, deltax, delsq, 
omega, lastw, thisw ; 
real array cthisp, cpoly [0:k], clastp [—1:k], 
lastp, thisp [l:m] ; 
Boolean swx ; 
comment Initialization ; 
swx. := true ; beta [0] := clastp [0] := clastp [—1] := 
delsq := omega := 0 ; 
cthisp [0] := 1 ; thisw:=m ; 
for i := 1 step 1 until m do 
begin delsq := delsq + f[i]f2 ; 
thisp [i] := 1 ; lastp fi]J:=0 ; 
omega := omega + f[i] end ; 
8 [0] := cpoly [0] := omega/thisw  ; 
delsq := delsq — s [0] X omega ; 
sigma [0] := delsq/(m—1) ; 
comment Transformation of abscissa ; i := m+ 2 ; 
if 2Xi = m then deltax := 4/(m — 1) else deltax := 
4/m ; xone := —2 ; 
Main Computation loop; 
for i := O step 1 until k—1 do 
begin dummy :=0 ; x:=xone ; 
1: for j := 1 step 1 until m do 
begin dummy := dummy + x X thisp {j] f2 ; 
x := x + deltax end ; 
2: alpha [i + 1] := dummy/thisw ; 
lastw' := thisw ; 
thisw := omega := 0 ; 
x :™= xone ; 
3: for j := 1 step 1 until m do 
begin dummy := beta [i] X lastp {j] ; 
lastp {j] := thisp [j] ; 
thisp {j] := (x — alpha [i + 1)) X thisp fj] 
—dummy ; 
thisw := thisw + thisp [j])T2 ; 
omega := omega + f {j] X thisp fj] ; 
xi: x + deltax end ; 


comment 
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4: beta [i + 1] := thisw /lastw ; 
s[i + 1] := omega /thisw ; 
delsq := delsq — sfi + 1] X omega ; 
sigma [i + 1] := delsq/(m—i-—1) ; 
if swx then go to 6; 
5: epoly fit+i1]:=0 ; goto9 ; , 
Termination of main loop when higher power will 
not improve fit ; . 
6: if sigma [i + 1] < sigma [i]then goto7 ; 
swx := false ; goto5 ; 
Recursion for polynomial coefficients; 
7: for j := 0 step 1 until i do 
begin dummy := clastp [j] < beta fi] ; 
clastp {j] := cthisp {j) ; 
ethisp [j] := clastp [j — 1] — alpha [i +1] X cthisp j] dummy ; 
cpoly [j] := epoly {j] +8 {i+ 1] X cthisp fj]end ; 
8: epoly [fi + 1] := 8 fi + 1) 
cthisp [i+ 1]):=1 ; 
9: clastp fi + 1] := 0 end of main 
computation loop, transformation of polynomial follows ; 
begin real a, b ; 
a := deltax X (m — 1) /(xm— xl) ; 
b := xone — a X xl ; 
POLYX (a, b, cpoly, p, k) end 
end of LSFIT 


comment 


comment 


REMARK ON ALGORITHM 28 

LEAST-SQUARES FIT BY ORTHOGONAL POLY- 
NOMIALS (John G. MacKinney, Comm. ACM 38 
(Nov. 1960)) 

D. B. MacMiLuan 

Knolls Atomic Power Laboratory, General Electric Co., 
Schenectady, N. Y. 


The algorithm obtains the coefficients of the fitted polynomial 
of lowest degree such that an increase in the degree would cause an 
increase in the statistic sigma (sigma squared in Forsythe’s nota- 
tion). A significant decrease in sigma, as one goes from a fitted 
polynomial to one of higher degree, indicates that the increase in 
degree causes an improvement in the fit to the function underlying 
the data, rather than merely following more closely the random 
variations about that function introduced by the physical meas- 
urement process. 

If one of the orthogonal polynomials, say the one of ith degree, 
is missing from the underlying function, and some of the orthog- 
onal polynomials of higher degree are present, then the fitted 
polynomial of 7th degree will not be a real improvement over that 
of (¢ — 1)-th degree, but higher order fitted polynomials will be 
a real improvement. For example, in one of our recent routine 
problems the coefficient of the second degree orthogonal poly- 
nomial was quite small, and the first few values of sigma, starting 
with sigma (1), were .255, .264, .062, .046, .048. The algorithm would 
have chosen the first degree fitted polynomial as ‘“‘best’’, but the 
third and fourth degree fitted polynomials were clearly better 
than it. 


COLLECTED ALGORITHMS (cont.) 


This loophole may be plugged by modifying the algorithm so it 
computes the coefficients of the polynomial of lowest degree i for 
which it is true that 


sigma (i + 1) > sigma (i) 
and that 
sigma (j) = .6 sigma (i) j = i+2,i+3,--- ,k, 
(.6 was chosen arbitrarily). 


REMARK ON ALGORITHM 28 [E2] 

LEAST SQUARES FIT BY ORTHOGONAL 

POLYNOMIALS [John G. MacKinney, Comm. ACM 3 
(Nov. 1960), 604] 

G. J. Maxrnson (Recd. 30 Sept. 1965, 29 Aug. 1966 and 
7 Nov. 1966) 

University of Liverpool, Liverpool 3, England 


There are three errors in the published procedure. 
Line 32 ¢:= m+ 2; should read i := m + 2; 
Line 56 delsq/(m—i—1); should read delsq/(m—i—2); 
Line 69 ; is missing from end of statement cpoly[t+1] := s[{i+1]; 
Three improvements can be made to the procedure. In the case 
of equally spaced points, it is possible to center them about the 
origin; all alphas are then zero. This is achieved by replacing the 
statements on lines 32, 33, and 34 by deltax := 4/(m—1); 


tone := —2; All statements involving alphas can then be re- 
vised. 


Another improvement can be made by deleting the two state- 
ments on line 37 and all of lines 38, 39, and 40. These statements 
are completely redundant. 

The third improvement is to rewrite line 71 to read 


clastp[t+1] := 0; 9: end of main 
instead of 


9: clastp[t+1] := 0 end of main 
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ALGORITHM 29 

POLYNOMIAL TRANSFORMER 

Joun G. MAcKINNEY 

General Kinetics Inc., Arlington 6, Virginia 


procedure POLYX (a,b,c,d,n) ; valuea,b,n ; integer 
n ; real a, b ; 
real arrayc,d ; 
comment POLYX computes coefficients d0, dl, ... , dn of the 
transformed polynomial p(t) given c0, cl,..., 
en of p(x) wherex =at+b ; 
begin integer i,j,k ; real array z,w (O:n] ; 
w{0] := zf0] := 1 ; dfO] := cf0] ; 
for i := 1 step 1 until n do 
begin wii] := 1 ; zi] := bX zfi — 1] ; 
d{0] := d{0] 4+- cli] < zfi) 
end of initialization ; 
for j := 1 step 1 until n do 
begin w(0] := w(0]) X a ; d[j] := clj] X wiO] ; 
k:= 1; 
for i := j + 1 step 1 until n do 
begin w([k] := a X w{k] + w({k— 1] ; 
lj) = Ali] + efi] x wik) X z{k] ; 
k :=k+1lend 
end 
end of POLYX polynomial transformer 
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ALGORITHM 30 

NUMERICAL SOLUTION OF THE POLYNOMIAL 
EQUATION 

K. W. ELLENBERGER | 

Missile Division, North American Aviation, Downey, 
California 


procedure ROOTPOL (n, a, L, F,u, v, CONV) ; 
valuen,a,L,F ;integer L,F,n ; 
array a,u,v, CONV ; 
comment The Bairstow and Newton correction formulae are 

used for a simultaneous linear and quadratic iterated synthetic 
division. The coefficients of a polynomial of degree n are given as 
a; (i = 0,i,..., mn) where ay is the constant term. The coeffi- 
cients are scaled by dividing them by their geometric mean. 
The Bairstow or Newton iteration method will nearly always 
converge to the number of figures carried, F, either to root 
values or to their reciprocals. If the simultaneous Newton and 
Bairstow iteration fails to converge on root values or their 
reciprocals in L iterations, the convergence requirement will be 
successively reduced by one decimal figure. This program antici- 
pates and protects against loss of significance in the quadratic 
synthetic division. (Refer to “On Programming the Numerical 
Solution of Polynomial Equations,” by K. W. Ellenberger, 
Commun. ACM 8 (Dec. 1960), 644-647.) The real and imaginary 
part of each root is stated as u[i] and vi], respectively, together 
with the corresponding constant, CONV;, used in the con- 
vergence test. This program has been used successfully for over 
a year on the Bendix G15-D (Intercard System) and has recently 
been coded for the IBM 709 (Fortran System); ees 

begin integeri,j,m ; array h,b,c,d,e{[—2:n] ; 

real t, K, ps, qs, pt, qt, 8, rev, rr; 


ROOTPOL: bir := bee t= C11 t= Cle t= di := de t= Ci 1= 
e2:=0 ; 
for j] := Ostep1] untiln doh;:=a; ; t:=1 ; 
K := 10F ; 
ZROTEST: if h, = 0 then 
begin un := 0 ; vi:= 0 ; CONV, := K ; 
n:=n-—1 ; goto ZROTEST 
end ; 
INIT: ifn = 0 then go to RETURN ; 
S:= qgs:=pt:=qt:=s:=0 ; 
rev:=1 ; K:=10F ; 
ifn = 1 then 
begin r := — hi/ho ; go to LINEAR 
end ; 
for j] := 0 step 1 until n do 
begin 
if hj = 0 thens := 's else s.:= s + log(abs(hj)) 
end ; 8 := s!0 
for ] := O step 1 until n doh; := h;j/s_ ; 
if abs (hi/ho) < abs (hp-1/h,) then 
REVERSE: begint := —t ; m := entier ((n+1)/2) ; 
for j := 0 step. 1 until m do 
begin s := h; ; bj := boj 3 jn-j := 8 
end 
end ; 


if qs ~ 0 then 


begin p := ps ; q:=qs ; goto ITERATE 


ITERATE: 


RAIRSTOW: 


BNTEST: 


NEWTON: 


LINEAR: 


QADRTIC: 


RETURN: 
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end ; 

if hn-e = 0 then 

begin gq := 1 ; p:= —2 
end else . 


begin gq := h/hn-2 3; p:= (ha-1 — q X Da-s)/ha-s 
end ; 
ifn = 2then gotoQADRTIC ; r:=0 ; 
for i := 1 step 1 until L do 
begin ; 
for j := 0 step 1 until n do 
begin bj := hj — p X bhi —q X bj-2 ; 
ej = bj—p X ¢j—-1 — q X Cj-2 
end ; 
if np. = 0 then goto BNTEST =; 
if bh. = O then goto BNTEST =; 
if abs (hp-1/bn-1)<K then go NEWTON  ; 
ba := ha—q X baz ; 
ifb, = Othen gotoQADRTIC ; 
if K < abs (h,/b,) then go to QADRTIC 
for ] := 0 step 1 until n do ; 
begin d; := hj+rX dj. ; ej): dj tr X ejr 
end ; 
ifd, = 0 then goto LINEAR ; 
if K < abs (ha/d,) then goto LINEAR =; 


? 


Cno-1 [= —D XK Cn-2—-q XK Cne3 3 
2 
S i= -Cpi2 — Cnr X Cuz 
if s=0 then 
beginp:=p—2 ; q:=qX (q+ 1) 


end else 
begin p -=p cm (bn-1  Cn-2 — ba X Cn~s)/S ; 
q:=q Ar (—ba1 X Cn-1 + ba x Cn-2)/8 


end _; 


ifen1 = Othenr := r—lelser := r — dn/ep-1 

end ; ps := pt ; qs:= qt ; pt:=p ; 
qt:=q ; 

if rev < 0 then K := K/10 ; rev = —rev 
goto REVERSE =; 

ift<Othenr:=1/r ; un:=r ; va:=0 


CONV, :=K ; n:=n-—l1 ; 
for j] := 0 step 1 until n doh; := d; 
if n = 0 then go to RETURN 

go to BAIRSTOW 
if t < 0 then 


? 


begin p := p/q ; q:= 1/q 

end ; 

if 0 < (q — (p/2)?) then 

begin un := Un-1:= —p/2 ; 
8 := sqrt (q — (p/2)3) ; var=s ; 
Vn-1 ¢= —S 

end else 

begins := sqt ((p/2)?) — q) ; 

ifp <Othenu, := —p/2+s 
else Un := —p/2—-s 3; Un-i:= Q/Un ; 
Vn (= Vn-i := 0 

end ; CONV, := CONV,-: := K ; 
n:=n-2 ; 
for ] := 0 step 2 until n doh; := b; ; 
goto INIT ; 

end 


COLLECTED ALGORITHMS (cont.) 


CERTIFICATION OF ALGORITHM 30 

NUMERICAL SOLUTION OF THE POLYNOMIAL 
EQUATION (K. W. Ellenberger, Comm. ACM, Dec. 
1960) 

WIuuiAM J. ALEXANDER 

Argonne National Laboratory,* Argonne, III. 


ROOTPOL was coded by hand for the LGP-30 using the ACT-III 
Compiler with 24 bits of significance. The following corrections 
were found necessary. 


(a) bo t= bop t= Cy r= Cle t= diy := d_2 := ee.) := e2:= 0 
should be 
bo. i= bue t= C1 := Ce := d_) := e.1 := hs :=0 
(b) m:= entier ((n-+1)/2) should be 
m := entier ((n — 1)/2) 
(c) Jjn-j := 8 should be hy_j := 8 
(d) q := h/hp-2 should be Wbn/hn-2 
(e) ec) := bj —pXej—1—q Xej-2 should be 
cj := bj — p X ej-1 — G X Cj-2 
(f) ifn,-1=Othen goto BNTEST should be 
if h,_,; = 0 then go to BNTEST 
(g) s := sqrt (q —.(p/2)8) should be 
s := sqrt (q — (p/2)?) 
(h) for] := 0 step 2 until ndoh; := b; should be 


for } := Ostep 1 until n do hj := b; 
(i) goto BAIRSTOW should be goto ITERATE 


The following correction was found necessary in the given 
example (Refer to ‘(On Programming the Numerical Solution of 
Polynomial Equations,’ by K. W. Ellenberger, Comm. ACM 3, 
Dec., 1960): 

f(x). = (.10098), 108 x# — (.98913) 106 x? + (.10000) 10® x + 
(.10000) 10! = 0 should be 

f(x) = (.10098) 108 xt — (.98913) 108 x3 — (.10990) 10® x? + 
(.10000) 108 x + (.10000) 10! = 0 

With these corrections the results obtained agree with those 
given in the example. 

For equations of higher order it was found necessary to avoid 
repeated scaling of the reduced equation in order to prevent 
floating point overflow. The range on the exponent in the ACT III 
system is —32 Se S 31. 

Further floating point overflow difficulties were experienced 
when certain coefficients in the reduced equation became small 
but not zero. The following additions were made to avoid this 
fault: 

(a) for} := Ostepl untilndoh; :=d; was replaced by 
for j := 0 step 1 until n do begin if abs (hj/dj) < K then 
h; := d; else h; := 0 end 
(b) for j := Ostep 1 until n doh; := bj was replaced by 
for j := 0 step 1 until n do begin if abs (hj/bj) < K then 
h; := bj else hj := 0 end 
With the above changes the following results were obtained: 
xt — 3 x3 + 20 x? 4+ 44x + 54 = 0 
x = —.9706390 + 1.005808i 
x = 2.470639 + 4.640533: 
x®§—2x5+2x'!+ x3 + 6x? —- 6x +8 = 0 
x = —.9999999 + .9999999i 
x = 1.500000 + 1.322876i 


x = .56000002 + .86602511 
x? + xt — 8x? — 16x? + 7x + 15 = 0 
x = 3.000001 
x = —2.000000 +: 1.000001i 
x = — .9999997 
x = .9999998 


* Work supported by the U. 8. Atomic Energy Commission 
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CERTIFICATION OF ALGORITHM 30 

NUMERICAL SOLUTION OF THE POLYNOMIAL 
EQUATION [K. W. Ellenberger, Comm. ACM 3 
(Dec. 1960), as corrected in the previous Certification 
by William J. Alexander, Comm. ACM 4 (May 1961)] 

KALMAN J. COHEN 

Graduate School of Industrial Adnainistration, Carnegie 
Institute of Technology, Pittsburgh, Pa. 


The ROOTPOL procedure originally published by Ellenberger 
as corrected and modified by Alexander was coded for the Bendix 
G20 in 20-GATE. Some serious errors were found in the third and 
fourth lines above the statement labelled “REVERSE” in Ellen- 
berger’s Algorithm which were not mentioned in Alexander’s 
Certification. First, the function “‘log’’ is not a standard function 
in ALGOL 60; it is clear from the context, however, that Ellenberger 
intends this to be the logarithm function to the base 10. Second, 
Ellenberger’s Algorithm failed to divide the accumulated sum of 
the logarithms by n+1 before taking the antilogarithm. 

The correct, and slightly simplified, manner in which the third 
and fourth lines above the statement labelled ““REVERSE” 
should read is: 

if hj ~ 0 then s := In(abs(h))) 
end; s := s/(n+l); s := exp(s); 

With these corrections, the numerical results obtained essen- 
tially agree with those reported by Alexander. 


CERTIFICATION OF ALGORITHM 30 [C2] 

NUMERICAL SOLUTION OF THE POLYNOMIAL 
EQUATION [K. W. ELLENBERGER, Comm. ACM 
3 (Dec. 1960), 643] , 

Joun J. Kouretp (Recd. 31 Aug. 1964, 18 Nov. 1964 and 
10 Nov. 1966) 

Computing Center, United Technology Center, Sunny- 
vale, Calif. 94088 
The ROOTPOL procedure was found to use the identifiers p, q, 

without declaring them. They should be declared real. 


The first ALGoL statement in Cohen’s Certification [Comm. 
ACM 6 (Jan. 1962), 50] which reads: 


ifh; ~ Othen s := In (abs(h;)) 
should read: 
if h; ~ Othen s := In (abs(hj)) + 8. 
The next line could be simplified to read: 
s := exp(s/(n+1)); 


The above corrections, as well as Algorithm 30 itself, are in 
publication language Auaot. In order to translate the algorithm 
to reference language ALGoL, which is now used in CACM, 10” 
would need to be replaced by 10 7 F, and h; would need to be re- 
placed by h [j]. 

With these corrections and those contained in Alexander’s 
Certification [Comm. ACM 4 (May 1961), 238], Ellenberger’s Al- 
gorithm was adapted to B-5000 ALaon and successfully executed 
on the Burroughs B-5000 computer at United Technology Center. 
The results from the four examples used by Alexander are given 
below. 


end; 


COLLECTED ALGORITHMS (cont.) 


Example 1 


(1.0098)10’x* — (9.8913)10%x? — (1.0990)10°x? + 105, +1 = 0, 
The roots are: 
z = —0.201080185406 
= 0.149521622653 + 0.1639896092837 
= (—9.99989011230)10-*, 


Example 2 


xt — 3x3 + 20x? + 447 + 54 = 0 
x = 2.47063897001 + 4.640533161647 
x = —0.970638970010 + 1.005807589037 


Example 3 
w8 — 275 + 2x! + 2? + 62? — 62 +8 = 0 
zx = —0.999999999990 + 1.0000000000007 
z = 1.500000000000 = 1.322875655537 
x = 0.500000000000 -- 0.8660254037802 


Example 4 

xv + at — 823 — 162? + 7x + 15 = 0 
3.00000000000 
—2.00000000000 = 1.000000000037 
—0.999999999990 
1.000000000000 


xv 
MH 
x 


7 


These results agree substantially with those given in Alexander’s 


Yertification. 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 31 

GAMMA FUNCTION 

Ropert M. CoLuInGcEe 

Burroughs Corporation, Pasadena, California 

real procedure Gamma (x); real x; 

comment For x in the range 2 < x < 3 an approximating poly- 
nomial is used. In this range the maximum absolute error e(x) 
is | e(x) | < 0.25 X 107. For x > 3 we write ['(x) = (x—1)(x—2) 
...(x—n)t(x—n) where 2 < (x—n) < 3, and for x < 2 we write 

P(x+n) 


T(x) = GED). Genet) nena 2< (x—n) < 3. Forx = 0 

or a negative integer ['(x) is set equal to a large value 10®. 
begin 

real h, y; 


h:= 1.0; y := x; 
Al: if y = 0 then h := 10 
else if y = 2.0 then go to A2 
else if y < 2.0 then begin 
h:= h/y; y:=y+41.0; goto Al end 
else if y > 3.0 then begin 
y:i= y- 1.0; h:=hX y; goto Al end 
else begin y := v — 2.0; 
h:= (((((((.0016063118 X y + .0051589951) x y 
-+- .0044511400) & y + .0721101567) K y 
+- .0821117404) X y + 4117741955) x y 
-++ .4227874605) X y + .9999999758) = h end; 
A2: Gamma := h end Gamma. 


CERTIFICATION OF ALGORITHM 31 

GAMMA FUNCTION [R. M. COLLINGE, Comm. 
ACM, Feb. 61] 

PETER G. BEHRENZ 

Mathematikmaskinnimnden, Stockholm, Sweden 
GAMMA was successfully run on FACIT EDB using Facrt- 

ALGOL 1, which is a realization of ALcou 60 for FACIT EDB. 


No changes in the program were necessary. The relative error 
was as stated in the comment of GAMMA about 107°. 


CERTIFICATION OF ALGORITHM 31 

GAMMA FUNCTION [R. M. Collinge, Comm. ACM 
Feb. 61] 

Perer G. BrHrenz 

Mathematikmaskinnamnden, Stockholm, Sweden 
GAMMA was successfully run on FACIT EDB using Factt- 

Aucot 1, which is a realization of ALcot 60 for FACIT EDB. 


No changes in the program were necessary. The relative error 
was as stated in the comment of GAMMA about 1078 


? 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 32 
MULTINT 
R. Don FREEMAN JR. 
Michigan State University, East Lansing, Michigan 
real procedure MULTINT (n, Low, Upp, Funev, s, P, u, w); 
value n; 
real procedure Low, Upp, Funev; 
w; integer n; 
comment MULTINT will perform a single, double, triple,..., 
T-order integration depending on whether n=1, 2,..., T. The 
result is: 


array 8, u, 


Upp(1) Upp(2, x1) 
MULTINT = | Funev(1, xi) dx: {| Funev(2,x:,x2) dx... 
Low(1) Low(2, x1 


Upp(n,x,.-..Xn-1) 
Funev(x,....Xn) dXa 
Low(n,x1,...,Xn-1 
The variable of integration is x[j]. j=1 refers to the outermost 
integral, j=n, the innermost integral. The code divides each 
interval equally into s{j] subintervals and performs a P-point 
Gaussian integration on each subinterval with weight func- 
tions w(k[j]] and abscissas u[k[j]]. P is the size of the arrays of 
weight functions and abscissas and must be provided by the 
main code along with these arrays. 

Since the values x(1], x[2],..., x{n], are stored in an array, as 
are a, b, c, d, r, it is necessary to substitute an integer for the 
upper bound T of these arrays before the program is executed. 
This means, for example, if 3 is substituted for T, then the 
procedure will not do a 4th order integral unless it is retrans- 
lated with T > 4. ; 

The values of the lower and upper bounds and functions must 
of course be specified at the time of use. If each of these con- 
stituted a separate procedure, it would require writing and 
translating 3n different procedures. This is eliminated by group- 
ing them into Low, Upp, and Funev which compute the lower 
and upper bounds and value of the functions respectively in 
each of the jth integrals. Since these are each essentially a col- 
lection of ‘‘subprocedures,”’ the first’ statement of each should 
be a switch directing the code to the ‘‘subprocedure”’ which is 
used in the jth integral. Note that, for example, Low(3,x) is 
formally a function of x[1], x[2],..., x[T]; this is done merely 
because it is more convenient to make Low(j,x) formally a func- 
tion of the whole array x for all j. Actually of course Low(3, x) 
would be a function of x{1] and x[2] only; 


begin real array a, b, c, d, r, x[1:T]; 
integer array k, h{1:T]; real f; integer j, m; 
for j :=1 step 1 until T do 
x{j] := 
m := 1; 
r[(nt+1] := d{n+1] := 
setup: for j := m step 1 until n do 
begin 


alj] := Low(,x); 

bij] := UppG,x); 

d{j] := (blj]— alj))/sii]; 

e{j] := alj] + 0.5 x d{jJ; 

x{j] := efj] + 0.5 X dj] < ull]; 


r{j] := 0.0; 
h{j] := k{j] := 1; end; 
j := n; 


sum: f := Funev(j,x); 
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rfj)] := rij] + rijt+1) X dl) x f & wiki; 
if (k[j] < P) then go to labk; 
if (aol < s[j]) then go to labh; 


j := j-1; 
if (j = 0) then go to exit; 
go to sum; 
labh: h{j] := bfj] + 1; 
e[j] := afj] + (hfj] — 0.5) x dfil; 
k{j] := 1; 


go to initalx; 
labk: kj] := k{j}. + 1; 
initalx: x[j] := c[j] + 0.5 X dj] x u[k[j J]; 
if sey then go to sum; 
=. j+1; 
: go to setup; 
exit: MULTINT := oa x a x 057 n; end 


CERTIFICATION OF ALGORITHM 32 
MULTINT [R. Don Freeman, Comm. ACM, Feb. 1961] 
Henry C. THAcHER, JR.* . 
Reactor Engineering Div., Argonne National Laboratory, 
~ Argonne, Ill. 
* Work supported by the U. 8. Atomic Energy Commission. 
The procedure was transcribed into the ACT-III language for 


‘the LGP-30 computer, and was tested on the integrals: 


(1) CLL klcos u — 7u sin u 


— 6u? cos u + u® sin ul dw dz dy dz = sink 


kwaxyz, and 


ik ‘a rie dz dy dz 
0 Yo 0 at + y+ (2 — hk) 


ost (t-s)oul2). 


The ALGoL procedures for the second integral are: 


where u = 


real procedure Low (j,x); 
Low := 0; 
real procedure Upp(j,x); 
x(1); 
begin 
integer 7; 
temp := 1.0; 
for 1 := j—1 step — 1 until 1 do 
temp := temp — x{j] X x[3); 
Upp := sqrt(temp) 
end; 
real procedure Funev(j,x) ; 
comment The real parameter k is global; 
Funev := if j < 3 then 1.0 else 1/(x[1]X2(1]+2[2]X2[2]+ (2[3]— 
12); 
The first integral was tested only with s[j] = 1, and with various 
Gaussian formulas for integrals over the interval (—1,+1). Re- 
sults were as follows: 


comment z = 2(3], y= 2([2), <= 


real temp; 


COLLECTED ALGORITHMS (cont.) 


k x/2 7 30/2 Qn 
true 1.0000000 0.0000000 —1.0000000 0.0000000 
p=2 0.993704 --0.0333603 +0.020166 6.881490 
p= 3 1.000032 0.0000848  —1.061651 —0.597419 
p= 4 0.999999 0.0000001 —0.998407 +0.0027035 
p=5 1.000000 -0.0000002  —1.000028 —0.0007857 
For the second integral, two values of s = s{l] = s[2] = s[3] 


were used, and two values “f ». Results were as follows: 


k 1/2 2 
true 11 .46027376 1. 10609687 
8 1 2 1 2 
p = 2 5.454460 11.838651 1.0368770 1.1184305 
p = 3 9.361666 12.408984 1.1343551 1.1094278 


The effect of the pole at (0,0,k) is obvious. 

For the algorithm to run in any compiler, the semicolon follow- 
ing z{7']; in the fourth line above the end of the comment must be 
deleted. The array bounds on the arrays r and d must be increased 
to {1 : T+1). 

For a system which permits variable array bounds, the intro- 
duction of the integer 7’ appears superfluous. For such a system, 
T may be replaced by n throughout with a probable gain in effi- 
ciency. For most translators, the presence of undefined elements 
in an array will not cause difficulties, provided these elements do 
not appear in an expression before they are assigned a value. 

The statement “for j := 1 step 1 until T do z[j] := 0.0;”’ is thus 
superfluous. The semicolon before the end which precedes the 
label ‘‘sum’’ also appears unnecessary. 

In spite of these minor corrections, the algorithm appears to be 
extremely convenient for multiple quadratures over arbitrary 
regions using the Cartesian product of any explicit one-dimen- 
sional formula (and not merely a Gaussian formula) for inte- 
grating over the range [—1,1]. If endpoints are used in the formula, 
it will, of course, repeat the calculation for each section of the 
range. 


REMARKS ON ALGORITHM 32 [D1] 

MULTINT [R. Don Freeman, Jr., 
(Feb. 1961), 106] 

AND 

CERTIFICATION OF ALGORITHM 32 [Henry C. 

Thacher, Jr., Comm. ACM 6 (Feb. 1963), 69] 

K. 8S. KO.sBia 

Data Handling Division, European Organization for 
Nuclear Research (CERN), 1211 Geneva 23, Switzer- 
land 


KEY WORDS AND PHRASES: numerical integration, multi- 
dimensional integration, Gaussian integration 
CR CATEGORIES: 5.16 


Comm. ACM 4 


The real procedure MULTINT was corrected according to the 
certification. It was then compiled on a CDC 3800 computer and 
tested on the second integral given in the certification. It became 
apparent that 
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(i) Equation (2) of the certification should read 
i. = ee 1—x2—-y dz dy dx _ 
VJi—a? J—4/i--224y? x? + y+ (z — k) 


see en) 


It should be noted that the right-hand side of equation (2) 
as printed in the certification does not correspond either to the 
original limits or to those given above. 

(ii) the statement 


(2) 


Low := 0; 
in the real procedure Low should be replaced by 


Low := —Upp(j, x); 
(iii) the second line of the for statement in the real procedure 
Upp should read 


temp := temp — x(t] X 2[1]; 

After making these corrections, it is possible to obtain results 
corresponding to a permuted version of the table given in the 
certification, which should be replaced by the following: 


k 7 2 
true 11.46027375 1. 10609686 

s 1 2 1 2 
P' =? 5.454466 9.861670 1.0368787 1.1184317 
P=3 11. 838664 12 .408983 1.1343568 1.1094294 


In addition, since several compilers require specifications, it 
would be desirable 
(i) to change the last specification in the heading of MULTINT 


to read 

integer n, P; 

(ii) to insert the specifications 
integer 7; 


array 2; 


in the heading of the real procedures Low, Upp, and Funev. 
Some of these additions were necessary in order to ensure 
correct results with the compiler used for the tests. 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 33 
FACTORIAL 
M. F. Lipp 
RCA Digital Computation and Simulation Group, 
Moorestown, New Jersey 
real procedure. Factorial (n) ; 
value n ; integer n ; 
comment This procedure makes use of the implicitly defined 
recursive property of Algol to compute n!; 
begin Factorial := if n = 0 then 1. else nX Factorial (n—1) 
end 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 34 
GAMMA FUNCTION 
M. F. Lippe 


RCA Digital Computation and Simulation Group, 
Moorestown, New Jersey 


real procedure Gamma (x) ; real x : 

comment This procedure generalizes the recursive factorial 
routine, finding '(1+x) for reasonable values of x. Accuracy 
vanishes for large x(|x| > 10) and for negative x with small 
fractional parts. For x being a negative integer the impossible 
value zero is given; 

begin test: if x < 0 then go to minus else if x < 1 then 

begin integer i; real y; array a [1 8] ; 


a [1] := ~—.57719165 ; 

a [2] := .98820589 ; a [8] := —.89705694 ; 

a [4] := .91820686 ; 

a [5] := —.75670408 ; a [6] := .48219939 ; 

a [7] := —.19352782 ; 

a [8] := 03586834 ; y := a [1]; 
for i := 2 step 1 until 8do y := y X x + [i] ; 
Gamma := y end hastings 
else Gamma := x X Gamma (x—1); goto endgam; 
minus: if x = —1 then Gamma := 0 else 
Gamma := Gamma (x+1) /x ; 


endgam : end gam 


REMARK ON ALGORITHM 34 

GAMMA FUNCTION [M. F. Lipp, Comm. ACM 4 
(Feb. 1961)] 

Marcaret L. JOHNSON AND WARD SANGREN 

Computer Applications, Inc., San Diego, Calif. 


The coefficients used in the calculation of the Hasting’s poly- 
nomial are used in reverse order. The algorithm should have 
a(1]= — 19352782; a[2]=.48219939; a[3]=—.75670408; 

a[4] = .91820686 ; a[5]= — .89705694; a[6]=.98820589 ; 
a[7]= — 57719165; a[8]=1.0; 

y = .08586834; 

for i := 1 step 1 until 8 do y := yXx-+ali];. 

Further, since Gamma (x)=T(1+z), the divisor z in the 
statement labeled minus should be x+1. 


REMARKS ON: 
ALGORITHM 34 [814] 
GAMMA FUNCTION 
[M. F. Lipp, Comm. ACM 4 (Feb. 1961), 106] 
ALGORITHM 54 [814] 
GAMMA FUNCTION FOR RANGE 1 TO 2 
[John R. Herndon, Comm. ACM 4 (Apr. 1961), 180] 
ALGORITHM 80 [814] 
RECIPROCAL GAMMA FUNCTION OF REAL 
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ARGUMENT 
[William Holsten, Comm. ACM 5 (Mar. 1962), 166] 
ALGORITHM 221 [814] 
GAMMA FUNCTION 
[Walter Gautschi, Comm. ACM 7 (Mar. 1964), 143] 
ALGORITHM 291 [814] 
LOGARITHM OF GAMMA FUNCTION 
[M. C. Pike and I. D. Hill, Comm. ACM 9 (Sept. 1966), 
684] 
M. C. Prxe ann I. D. Hitn (Recd. 12 Jan. 1966) 
Medical Research Council’s Statistical Research Unit, 
University College Hospital Medical School, 
London, England 


Algorithms 34 and 54 both use the same Hastings approxima- 
tion, accurate to about 7 decimal places. Of these two, Algorithm 
54 is to be preferred on grounds of speed. 


Algorithm 80 has the following errors: 
(1) RGAM should be in the parameter list of RGR. 
(2) The lines 
if x = 0 then begin RGR := 0; goto EXIT end 
and 
if x = 1 then begin RGR := 1; goto EXIT end 
should each be followed cither by a semicolon or preferably by an 
else. 
(3) The lines 
if z = 1 then begin RGR := 1/y; 
and 
ifz < —1then beginy := y Xz; goto CC end 
should each be followed by a semicolon. 
(4) The lines 
BB: if z = —1 then begin RGR := 0; goto EXIT end 
and 
if z > —1 then begin RGR := RGAM(z); goto EXIT end 
should be separated either py else or by a semicolon and this 
second line needs terminating with a semicolon. 
(5) The declarations of integer 7 and real array B[0:13] in RGAM 
are in the wrong place; they should come immediately after 
begin real z; 


go to EXIT end 


With these modifications (and the replacement of the array B 
in RGAM by the obvious nested multiplication) Algorithm 80 ran 
successfully on the ICT Atlas computer with the ICT Atlas 
ALGOL compiler and gave answers correct to 10 significant digits. 


Algorithms 80, 221 and 291 all work to an accuracy of about 10 
decimal places and to evaluate the gamma function it is therefore 
on grounds of speed that a choice should be made between them. 
Algorithms 80 and 221 take virtually the same amount of coraput- 
ing time, being twice as fast as 291 at x = 1, but this advantage 
decreases steadily with increasing z so that at « = 7 the speeds are 
about equal and then from this point on 291 is faster—taking only 
about a third of the time at = 25 and about a tenth of the time 
at x = 78. These timings include taking the exponential of log- 
gamma. 

For many applications a ratio of gamma functions is required 
(e.g. binomial coefficients, incomplete beta function ratio) and the 
use of algorithm 291 allows such a ratio to be calculated for much 
larger arguments without overflow difficulties. 
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ALGORITHM 35 

SIEVE 

T. C. Woop 

RCA Digital Computation and Simulation Group, Moores- 
town, New Jersey 


_ procedure Sieve (Nmax) Primes: (p)_ ; 

integer Nmax; integer array p_ ; 

Sieve uses the Sieve of Eratosthenes to find all prime 
numbers not greater than a stated integer Nmax 
and stores them in array p. This array should be 
of dimension 1 by entier (2 X Nmax/ fn (Nmax)) ; 

begin integer n,i,j ; 


comment 


pil:=1 5 pRJ:=2 ; pBl:=jr=3 ; 
for n := 3 step 2 until Nmax do 
begin i: 3 ; 


Li: go to if p[i] < sqrt (n) then al else a2_ ; 
al: go to if n/p[i] = n + pfi] then bi else b2_ ; 
b2:i:=i+1 ; gotoLl ; 

a2:pij]:=n 3; j:=jt+l ; 

bl: end end 


CERTIFICATION OF ALGORITHM 35 
SIEVE (T. C. Wood, Comm. ACM, March 1961) 
P. J. BRown 

University of North Carolina, Chapel Hill, N. C. 


SIEVE was transliterated. into GAT for the Unrvac 1105 
and successfully run for a number of cases. 

The statement: 

go to if n/p[i] = n + p[i] then bl else b2; 
was changed to the statement: 

go to if n/p{i] — n + pfi] < .5/Nmax then b1 else b2; 
Roundoff error might lead to the former giving undesired results. 


CERTIFICATION OF ALGORITHM 35 

SIEVE [T. C. Wood, Comm. ACM. Mar. 1961] 

J. S. HituMore 

Eliott Bros. (London) 
England 


Ltd., Borehamwood, Herts., 


The statement: 
go to if n/plz] = n + pt] then 61 else 62; 
was changed to the statement: 
go to if (n + plt]) X pit] = n then 61 else 62; 

This avoids any inaccuracy that might result from introducing 
real arithmetic into the evaluation of the relation. 

The modified algorithm was successfully run using the Elliott 
ALGOL translator on the National-Elliott 803. 
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REMARKS ON: 


ALGORITHM 35 [A1] 

Sieve [T. C. Wood, Comm. ACM 4 (Mar. 1961), 151] 

ALGORITHM 810 [A1] 

PRIME NUMBER GENERATOR 1 [B. A. Chartres, 
Comm. ACM 10 (Sept. 1967), 569] 

ALGORITHM 811 [A1] 

PRIME NUMBER GENERATOR 2 [B. A. Chartres, 
Comm. ACM 10 (Sept. 1967), 570] 


B. A. CHARTRES (Reed. 13 Apr. 1967) 
Computer Science Center, University of Virginia, 
Charlottesville, Virginia 


The three procedures Sieve(m,p), stevel(m,p), and steve2(m,p), 
which all perform the same operation of putting the primes less 
than or equal to m into the array p, were tested and compared for 
speed on the Burroughs B5500 at the University of Virginia. The 
modification of Sieve suggested by J. S. Willmore [Comm. ACM 65 
(Aug. 1962), 438] was used. It was also found that Sieve could be 
speeded up by a factor of 1.95 by avoiding the repeated evaluation 
of sqrt(n). The modification required consisted of declaring an 
integer variable s, inserting the statement s := sqré(n) immedi- 
ately after i := 3, and replacing p[i]<sqrt(n) by pli]<s. 

The running times for the computation of the first 10,000 primes 
were: 


Sieve (Algorithm 35) 845 sec 
Sieve (modified) 434 sec 
stevel 220 sec 
steve2 91 sec 


The time required to compute the first k primes was found to be, 
for each algorithm, remarkably accurately represented by a power 
law throughout the range 500 < k < 50,000. The running time of 
Sieve varied as k!°, that of stevel as k!*8, and that of steve2 as 
k1-%, Thus the speed advantage of steve2 over the other algorithms 
increases with increasing k. However, it should be noted that 
steve2 took approximately 33 minutes to find the first 100,000 
primes, and, if the power law can be trusted for extrapolation past 
this point (there is no reason known why it should be), it would 
take about 12 hours to find the first million primes. 
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ALGORITHM 36 

TCHEBYCHEFF 

A. J. GIANNI 

RCA Digital Computation and Simulation Group, Moores- 
town, New Jersey 


procedure tchebycheff (t,x, m,¢) ; 
real array t,xX ; integer f,m ; 
comment given a set of m+1 values of x stored in a one- 
dimensional array whose subscripts run from 0 
thru m at least, construct a table of ta(x), n = 
0, 1,---,6 and store it in the two-dimensional 
array t, where you find ta(x[m]) as t{n, m]_ ; 
begin integer i, k,n ; . 
for k := 0 step 1 until m do begin t(0, k] := 1 ; 
t{l, k] := x[k] end; 
for n:= 2step1 until /dofori=0 step 1 
until m do 
tin, i] := 2 X xfi] X th — 1, i] — t[n — 2, i] 
end_ tcheby : 
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ALGORITHM 37 

TELESCOPE 1 

K. A. Brons 

RCA Advanced Programming Group, Pennsauken, N. J. 


procedure Telescope 1 (N,L,eps,limit,c) ; valuelimit,L_ ; 
integer N ; real L, eps, limit ; array c ; 
comment: Telescope 1 takes an Nth degree polynomial approxi- 


mation >. exx* to a function which was valid to 
k=0 


within eps > 0 over an interval (0, L) and reduces 
it, if possible, to a polynomial of lower degree, 
valid to within limit > 0. The initial coefficients 
cx. are replaced by the final coefficients, and the 
deleted coefficients are replaced by zero. The ini- 
tial eps is replaced by the final bound on the error. 
N is replaced by the degree of the reduced poly- 
nomial. N and eps must be variables. 

This procedure computes the coefficients given in 
the Techniques Department of the ACM Com- 
munications, Vol. 1, No. 9, from the recursion 

- formula 


k-L-(2k — 1) 
RESIN sok = N= ke a), 


; array d{0:N] ; 
d(N] := —c(N] ; 


aki = 


begin integer k 
if N <1 then go to exit ; 
for k := N step — 1 until 1 do 
d{k — 1] := —d{k] xX L Xk X (k — 0.5)/ 

(No Boe Gee DD): 3 
if eps + abs (d{0]) < limit then 
begin eps := eps + abs (d[0]) ; 
fork := Nstep — 1 until0doc[k] := c{k] + d{k]; 
N:= N—1 ;gotostart end ; 
exit: end 


start: 


CERTIFICATION OF ALGORITHM 37 

TELESCOPE 1 [K. A. Brons, Comm. ACM, Mar., 1961] 

Henry C. Tuacuer, Jr.* 

Reactor Engineering Div., 
Argonne, IIl. 


Argonne National Lab., 


* Work supported by the U. 8. Atomic Energy Commission. 


The body of Telescope 1 was compiled and tested on the LGP-30 
using the ALGoL 60 translator system developed by the Dartmouth 
College Computer Center. No syntactical errors were found, and 
the program ran satisfactorily. The 10th degree polynomial ob- 
tained by truncating the exponential series was telescoped using 
lim! = ly — 2 and L = 1.0. The result was N = 3, eps = 
.210300510 — 3, and coefficients +.9997892, — .9930727, + .4636493, 
— .1026781. The error curve for the telescoped polynomial was 
computed for x = 0(.02)1.0. The error extrema were bounded by 
eps to within 0.5%. The discrepancy is within the range of input 
conversion and round-off error. 
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CERTIFICATION OF ALGORITHM 37 
TELESCOPE 1 [K. A. Brons, Comm. ACM, Mar. 1961] 
JAMES IF. BRIDGES 

Michigan State University, East Lansing, Mich. 


This procedure was tested on the CDC 160A, using 160A For- 
TRAN. The 10th degree polynomial obtained by truncating the 
series exp (—2x) was telescoped using L = 1 and lim = 0.001. The 
result was N = 8, eps = 0.21061862; — 3 and coefficients 
+0.99978965, —0.99307236, +0.46364955, —0.10267767. The error 
curve was computed for z = 0(0.02)1.0 and no error exceeded eps, 
the worst error being 2% of eps less than eps. 

This result is in close agreement with that of Henry C. Thatcher. 
Jr. in his Certification (Comm. ACM, Aug. 1962). Mr. Thatcher 
has pointed out that he inadvertantly referred to the series for 
exp (—2) as the “exponential series” thereby inferring the posi- 
tive series exp (+2). There is also a typographical error in his eps. 
It should be +0.210350510 — 3. 
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ALGORITHM 38 

TELESCOPE 2 

K. A. Brons 

RCA Advanced Programming, Pennsauken, N. J. 


procedure Telescope 2 (N,L,eps,limit,c) ; valuelimit,L ; 
: integer N ; real L, eps, limit ; array c ; 
comment Telescope 2 takes an Nth degree polynomial ap- 


N 
‘proximation >> cxx* to a function which was 
k==0 


‘valid to within eps > 0 over an interval (--L, L) 
and reduces it, if possible, to a polynomial of 
lower degree, valid to within limit >0. The initial 
coefficients c, are replaced by the final coefficients, 
and deleted coefficients are replaced by zero. The 
initial eps is replaced by the final bound on the 
error, and N is replaced by the degree of the re- 
duced polynomial. N and eps must be variables. 
This procedure computes the coefficients given in 
the Techniques Department of the ACM Com- 
munications, Vol. 1, No. 9, from the recursion 


formula 
= k-L%(k — 1) : 
mee = OE ON Ek = 2) (Nk +2) 
begin integer k ; real s ; array d{0: N] ; 
start: if N <2 then go to exit ; d[N] := —c[N] 
for k := N step — 2 until 2 do 
d{k — 2] := —d{k] X LT2Xk xX (k — 1)/ 


CN + k= 2) % (= k+ 2)) 5 

if (N/2) — entier (N/2) = 0 then s := d/(0] else 
s:= d{lJ/N_ ; 

if eps + abs(s) < limit then begin 
eps := eps + abs(s) ; 

for k := N step — 2 until 0 do 
e{k] := e{k] + d[{k] ; 

N:= N-—1 = ; gotostart end ; 

exit: end 


CERTIFICATION OF ALGORITHM 38 
TELESCOPE 2 [K. A. Brons, Comm. ACM, Mar., 1961] 
James I’, BRIDGES 

Michigan State University, Kast Lansing, Mich. 


This procedure was tested on the CDC 160A using 160A For- 
TRAN. The 10th degree polynomial obtained by truncating the 
series expansion of exp (+z) was telescoped using L = 1.0 and 
lim = 0.001. The result was N = 4, eps = 0.59159949,. — 3 and 
coefficients +1.0000447, +0.99730758, +0.49919675, +0.17734729, 
+0.043793910. Errors were calculated for z = —1.0(0.02)1.0. The 
only error to exceed cps was at x = 1.0 and was within 0.6% of eps. 
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ALGORITHM 39 

CORRELATION COEFFICIENTS WITH MATRIX 
MULTIPLICATION . 

PAPKEN SASSOUNI . 

Burroughs Corporation, Pasadena, California 


procedure 


value 
comment 


begin 


1: begin 


2: begin 


comment 


procedure 


value 


comment 


begin 


begin 


NORM (x) number of rows: (m) number of columns: 
(n) normalized output: (y) standard deviations: 
(s) ; 

m,n ; integer m,n ; array x, y,s ; 

Given an observation matrix [x] consisting of ob- 
servations xij On a population, NORM will cal- 
culate 


Xij — Xj 
fori=1,:--,m 


YE T——__— ; : 
in . 
> (xij <3 x)? J =.1, on 
i=l 


and the standard deviations 


hut a 

Do (xij — &))? 

inl 

s.= re 
m 


where xX; is the mean of observations on the j-th 
factor ; 


integer i,j ; real r, h,-c, b :; 

r := sqrt (m) ; for j.:= 1 step 1 -until n do 
h:=0 ; ee : 
for i := 1 step 1 until m do 


h:=h-+xli,j] ; h:=h/m.; b:=0 ; 

fori := 1 step 1 until m do ; 
e:=xli,j]} —h ; b:=b+ecf2 ; yli,j] :=e 
end 2 ; 


b := sqrt (b) ; 

for i := 1 step 1 until m do . 
yi, J) := yf, j/b 5 sfj] := b/r | 
end 1 

end NORM ; 


The normalization is now completed, and. we are 
ready to compute the correlation matrix _;. 
TRANSMULT (y) number of rows: (m) number of 
columns: (n) symmetrical square matrix result: 

3 fe . 

m, n ; integer m, n ; array y, Z ; 

This procedure multiplies two matrices, the first 
being the transpose of the second. The result is a 
symmetrical matrix with respect to the main diag- 
onal, therefore only the lower part of it, including 
the main diagonal, is computed. The upper half is 
obtained by equating corresponding elements; 


integer i,j,k ; realh ; 
for} := 1 step 1 untilndo . 
for i := j step 1 until n do 
h:=0 ; 


for k := 1 step 1 until m do 

h :=h-+yi{k, i) xX ylk, jl ; 2fi, J} = bh 3 
if i ~ j then z{j, i] :=h 

end i 2 
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end TRANSMULT. |z] is the square matrix of the 
correlation coefficients of the initial observation 
matrix [x] 
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ALGORITHM 40 

CRITICAL PATH SCHEDULING 

B. LEAVENWORTH 

American Machine & Foundry Co., Greenwich, Conn. 


procedure CRITICALPATH (n, I,J, DIJ, ES, LS, EF, LF, TF, 
EE): <; 

integer n ; integer array I, J, DIJ, ES, LS, EF, LF, TF, 
FF ; 

comment: Given the total number of jops n of a project, the 

vector pair I, , J, representing the kth job, which is thought 

of as an arrow connecting event I, to event Jx(Ik < Jx, 

k = 1 --- ,n), and a duration vector (DIJ), , CRITICAL- 

PATH determines the earliest starting time (ES); , latest 

starting time (LS), , earliest completion time (EF); , latest 

completion time (LF), , the total float (TF), , and the free 

float (FF), . I, must be 1 and the I, , J, must be in ascending 

order. For example, if the first three jobs are labelled (1, 2), 

(1, 3), (8, 4), then the I, J vectors are (1, 1, 3) and (2, 3, 4) 

respectively. The critical path is given by each arrow whose 

total float is zero. The following non-local labels are used for 


exits: out! — Ix not less than J, ; out2 — I, out of se- 
quence ; outs — 1, missing; 

begin 
integer k, index, max, min ; integer array ti, te {I:n] ; 
index := 1 ; 
for k := 1 step 1 until n do 
begin 


if I{k] 2 J{k] then go to outl ; 
if I[k] < index then go to out2_ ; 
if I{k]’> index A I[k] ¥ index + 1 then go to out3 ; 
if I{k] = index + 1 then index := I{k] ; 
C: end ; 
for k := 1 step 1 until n do 
ti{k] := te{k] :=0 ; 
for k := 1 step 1 until n do 
begin 
max := ti[I{k]] + DIJ{k] ; 
if ti(J(k]] = 0 V ti[J[k]] < max then 


tifJ[k]] := max ; 
A: endti ; 
te(J{n]] := ti[JIn}] ; 
for k := n step —1 until 1 do 
begin 


min := te[J[k]] — DIJ(k] ; 


if te[I[k]] = 0 V te[I[k]] > min then 
te[I{k]] := min ; 


B: end te ; 
for k := 1 step 1 until n do 
begin 
ES[k] := ti{I({k]]  ; 
LS[k] := te{J{k]] — DIJ[k] ; 
EF(k] := ti[I{k]] + DUJ[k]  ; 
LF[k] := te[J[k]] ; 
TF[k] := te[J(k]] — ti{I{k]] — DIJ[k] ; 
FF[k] := ti(J{k]] — ti{£{k]] — DIJ[k] 
end 


end CRITICALPATH 
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REFERENCES 
(1) James E. Keuiey, Jr. anp Morgan R. Waxxer, ‘‘Critical- 
Path Planning and Scheduling,’’ 1959 Proceedings of the 
Eastern Joint Computer Conference. 
(2) M. C. Frisupere, ‘Least Cost Estimating and Scheduling 
— Scheduling Phase Only,’’ IBM 650 Program Library 
File No. 10.3.005. 


CERTIFICATION OF ALGORITHM 40 

CRITICAL PATH SCHEDULING (B. Leavenworth, 
Comm. ACM, Mar. 1961) 

Neat P,. ALEXANDER 

Union Carbide Olefins Company, 
West Virginia 


South Charleston, 


The Critical Path Scheduling algorithm was coded in Fortran 
for the IBM 7070. The following changes were made: 
(a) ti (k] := te [k] := 0; 


should be 
ti [k] := 0; 
te [k] := 9999; 
(b) if te [I{k]] = 0 V te [I[k]] > min then 
should be 


if te [I[{k]] > min then 
This change permits a value of 0 to be calculated for te [I[k]] and 
remain as the minimum value. 
In the statement 
if ti [J(k]] = O V ti [J[k]] < max then 
the part of the statement ‘‘ti [J[k]] = 0” is redundant and can be 
omitted. 


CERTIFICATION OF ALGORITHM 40 

CRITICAL PATH SCHEDULING [B. Leavenworth, 
Comm. ACM (Mar. 1961)] 

Lars HELLBERG 

Facit Electronics AB, Solna, Sweden. 


The Critical Path Scheduling algorithm was transliterated into 
Facit-ALGoL-1 and tested on the Facir EDB. The modifications 
suggested by Alexander (Comm. ACM (Sept. 1961)] were included. 
Results were correct in all tested schedules. 


CERTIFICATION OF ALGORITHM 40 

CRITICAL PATH SCHEDULING [B. Leavenworth, 
Comm. ACM 4 (Mar. 1961), 152; 4 Gep. 1961), 392; 
6 (Oct. 1962), 513] 

Irvin A. Horrman (Recd 7 Feb. 1964) 

Woodward Governor Co., Rockford, Tl. 
The Critical Path Scheduling algorithm was coded in Fast for 

the NCR315. The modifications suggested by Alexander [Comm. 


ACM 4 (Sept. 1961)] were included. Results were correct in all 
tested cases. However, the example of the J, J vectors given in 
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the comment 18 incorrect, as it would cause the exit oui3 — L, 
missing. 


([Eprror’s Nore. There are also two semicolons which should 
be removed from the comment of Algorithm 40.—G.E.F.]} 
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ALGORITHM 41 
EVALUATION OF DETERMINANT 
JoseF G. SOLOMON 


RCA Digital Computation and Simulation Group, Moores. 
town, New Jersey 


real procedure |)eterminant (A,n); 

real array A; integer n; 

comment This procedure evaluates a determinant by triangu- 
larization; 

begin real Product, Factor, Temp; array B[1 : n.1: nl, 
C[i in, 1: nj; 


integer Count, Sign, i, j, r, y; 
Sign := 1; Product := 1; 
for i:= 1 step1 until n do forj := 1 step | until 
ndo 
begin Bli,j] := Ali,j]; Cli,j] := Ali,j] end; 
for r:= 1 step 1 until n—1 do 
begin yount := r—1; 
zerocheck: if Blir,r] + 0 then go to resume; 
if Count < n—1 then Count := Count + 1 
else go to zero; 
for y :=r step 1 until n do 
begin Temp := B[Count+1,y]; B[Count+1,y] := 
B(Count,y]; B[Count,y] := Temp end; 
Sign := — Sign; go to zerocheck; 
zero: Determinant := 0; go to return; 
resume: fori := r+1 step 1 until n do 
begin Factor := C[i,r] / C[r,r]; 
for j := r+1 step 1 until n do 
begin Bfi,j] := Bii,j] — Factor x C [r,j] end end; 
for i := r+l step 1 until n do 
for } := r+1 step 1 until n do C[i,j] := Bfi,j] 
end; 
for i := 1 step 1 until n do Product := Product 
x Bli,i]; Determinant := Sign X Product; 
return: end 


ALGORITHM 41, REVISION 

EVALUATION OF DETERMINANT [Josef G. Solo- 
mon, RCA Digital Computation and Simulation Group, 
Moorestown, N. J.] 

Bruce H. Freep 

Dartmouth College, Hanover, N. H. 


real procedure determinant (a,n); 

real arrava; integer n; value an; 

comment ‘This procedure evaluates a determinant by triangu- 
larization; 

begin real product, factor, temp; 

array b[1:n,1:n]; 

integer count, ssign, 7,7, 7, Y; 


ssign := product := 1; 
for 7 := | step 1 until n do 
for j := 1 step 1 until n do 


b[t,3j] := alz,s]; 
for r := | step 1 until »—1 do 
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begin count := r—1; 
zerocheck: if b{r,r] 4 0 then go to resume; 
if count < n—1 then count := count +1 else go to zero; 


for y := r step 1 until n do 
begin temp := b[count+1,y]; 
b(count+1,y] := blcount,y]; 
b[count,y] := temp end; 
ssign := —ssign; 
go to zerocheck; 
zero: determinant := 0; go to return; 
resume: fori := r+] step | until n do 
begin factor := b[{t,r]/b[r,r]; 
for j := r+1 step 1 until x do 
b{t,7] := b[¢,7]) — factor X b[r,j] end end; 
for 1 := 1 step 1 until n do 
product := product X bi[z,1]; 
determinant := ssign X product; 
return: end 


CERTIFICATION OF ALGORITHM 41 
EVALUATION OF DETERMINANT [Josef G. Solo- 
mon, RCA Digital Computation and Simulation Group, 
Moorestown, N. J.] 

Bruce H. FREED 

Dartmouth College, Hanover, N. EH. 


When Algorithm 41 was translated into Scaup for running on 

the LGP-30, the following corrections were found necessary: 

1. In the ‘‘y’’ loop after ““B[Count,y] := Temp’ and before the 
“‘end”’ insert 

“Temp := C[Count+l,y]; 
C(Count +1,y] := C[Count,y}; 
C[Count,y] := Temp” 

2. “Sign’’ is an ALGOL word when uncapitalized. However, 
many systems (if not all) do not recognize the difference 
between small and capital letters. For this reason ‘Sign”’ 
was changed to “‘ssign’’ for the LGP-30 run (and in the 
revision which follows later). 

The following addition might be made in the specification as a 

concession to efficiency: ‘‘value A,n;’’. 

The following changes might be made to make the Algorithm 

less wordy: 

1. for ‘‘Ssign := 1; Product := 1;’’ 

put “‘Ssign := Product := 1;” 

2. for “begin Bli,j] := Alii]; Clt,J] 

put “Blz,j] := Clt,j] := Alz,z];” 

3. for “begin B[i,j] := Bli,j] — Factor X C{r,j] end end;’’ 

put “Bli,j] := Bli,j] — Factor X C[r,j] end;” 
The above corrections and changes were made and the program 
was run with the correct results, as follows: 


:= Al[t,j] end;”’ 


10.96597 35.10765 96.72356 
A =| 2.35765 —84.11256 87932 
18.24689 22.138579 = 1.11123 


Determinant = .15273131006 


Hand calculation on a desk calculator gives the value of the de- 


_ terminant for the above matrix as 152,731.3600. 
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10 30 3.0 1. 
10 40 60 4.0 
1.0 5.0 10.0 10.0 
10 60 15.0 20.0 


Determinant = .999999910+00 


The above matrix, being a finite segment of Pascal’s triangle, has 
determinant equal to 1.000000000. 


0.0 0.0 0.0 
A=1[150 9.0 2.0 Determinant = .000000010 +00 
70 50 4.0 


This is, of course, exactly correct. 

Finally, one major change can be made which does away with 
several instructions and reduces variable storage requirements 
by n?2. This change is the complete removal of matrix C from the 
program. It is extraneous. 

The revised Algorithm was translated into‘ScaLp and run on 
the LGP-30 with exactly the same results as above. 

The revised Algorithm 41 follows. 


ro 


REMARK ON REVISION OF ALGORITHM 41 

LVALUATION OF DETERMINANT [Josef G. Solomon, 
Comm. ACAI 4 (Apr. 1961), 176; Bruce H. Freed, 
Comm. ACAL 6 Sept. 1963), 520] 

Leo J. Rorenpera (Reed 7 Oct. 63) 

Box 2400, 362 Memorial Dr., Cambridge, Mass. 
While desk-checking the program-an error was found. For ex- 


ample, the algorithm as published would:‘have calculated the value 
zero as the determinant of the matrix: 


1 
0 0 1 0 
0 1 0 0 
10 0 0 


The error lies in the search for a nonzero element in the rth column 
of the matrix b. - 


Editor’s Note. Apparently the best general determinant evalu- 
ators in this section are imbedded in the linear equation solvers 
Algorithm 43 [Comm. ACM 4 (Apr. 1961), 176, 182; and 6 (Aug. 
1963), 445] and Algorithm 135 [Comm. ACM & (Nov. 1962), 553, 
557]. They search each column for the largest pivot in absolute 
value. Algorithm 41 searches only for a nonzero Pivot in each 
column, and will therefore fail for the matrix 


2+ 1 1 
1 1 2 
1 1 1 


if ¢ > s, for a machine with s-bit floating point. 
It is hoped that soon a good determinant evaluator will be 
published to take the place of Algorithm 41.—G. E. F. 


CERTIFICATION OF: 
ALGORITHM 41 [F3] 
EVALUATION OF DETERMINANT 
[Josef G. Solomon, Comm. ACM 4 (Apr. 1961), 171] 
ALGORITHM 269 [F 3] .s 
DETERMINANT EVALUATION 
[Jaroslav Pfann and Josef Straka, Comm. ACM 8 
(Nov. 1965), 668] 
A. Berason (Recd. 4 Jan. 1966 and 4 Apr. 1966) 


41 P.2 Ri 


Computing Lab., Sunderland Technical College, 
Sunderland, Co. Durham, England 


Algorithms 41 and 269 were coded in 803 ALGOL and run on a 
National-FElliott, 803 (with automatic floating-point unit). 


The following changes were made: 

(i) value n; was added to both Algorithms; 

(ii) In Algorithm 269, since procedure EQUILIBRATE is only 
called once, it was not written as a procedure, but actually written 
into the procedure determinant body. 


The following times were recorded for determinants of order N 
(excluding input and output), using the same driver program and 
data. 


N T T2 ; 
Algorithm 41 Algorithm 269 
‘ (minutes) 
10 0.87 0.78 
15 2.77 2.18 
20 6.47 4.78 
25 12.47 8.99 
30 21.37 14.98 


From a plot of In(T)) against In(V) it was found that 
T, = 0.00104N?-%, 
Similarly, 
T, = 0.00153N?-”. 


From a plot of 7; against T., it was found that: Algorithm 269 
was 30.8 percent faster than Algorithm 41, but Algorithm 41 
required less storage. 
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ALGORITHM 42 

INVERT 

T. C. Woop 

RCA Digital Computation and Simulation Group. 
Moorestown, New Jersey 


procedure Invert (A) order: (n) Singular: (s) Inverse: (Al): 
array A, Al; integer n,3, value n; 
comment This procedure inverts the square matrix A of order 
n by applying a series of elementary row operation to the matrix 
to reduce it to the identity matrix. These operations when 
applied to the identity matrix yield the inverse Al. The case 
of a singular matrix is indicated by the value s := 1; 
begin comment augment matrix A with identity matrix; 
array allin, 1:2 X n];_ integer i,j; 
for i := 1 step 1 until n do 
for) := 1 step 1 until 2 X ndo 
if} = n then ali,j| := Ali,j] else 
if } = n+1 then ali, j] := 1.0 else a [i,j] := 0.0; 
comment begin inversion; 
for i := 1 step 1 until n do 
integer k, f, ind; j := ¢€:= i; ind := s := 0; 
Li: if aff,j] = 0 then 
begin ind := 1; if < n then begin f := f +1; 
go to Li end 
else begin s := 1; 
end; 
if ind = 1 then for k := 1 step 1 until 2 X n do 
begin real temp; 
temp := a[f,k]; 
alf,k] := a [i,k]; 
ali,k| := temp end k loop; 
for k := j step 1 until 2 X ndo 
ali,k] := afi,k] / ali,j); 
for f := 1 step 1 until n do 
if € ¥ i then for k := 1 step 1 until 2 X n do 
al€,k] := alf,k] — afi,k] x a[é,j]; 
end i loop; 
for i := 1 step | until n do 
for ] := 1 step 1 until n do 
Alfi,j] := afin+]]; 
LL2: end of procedure 


begin 


go to L2 end 
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INVERT (T. C. Wood, Comm. ACM, Apr., 1961) 
ANTHONY W. Knapp AND PAUL SHAMAN 
Dartmouth College, Hanover, N. H. 


INVERT was hand-coded for the LGP-30 using machine lan- 
guage and the 24.0 floating-point interpretive system, which car- 
ries 24 bits of significance for the fractional part of a number and 
five bits for the exponent. The following changes were found 
necessary : 


(a) ifj = n+1 then ali, j] := 1.0 else afi, j] := 0.0; 
should be 


if j = n+i then ali, j] := 1.0 else afi, j] := 0.0; 
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(>) for k := j step 1 until 2 X n do 
ali, k] := afi, kl/ali, 3]; 
should be 
for k := 2X n step —1 until i do 
ali, k] := ali, k]/ali, i]; 


(ec) if 1 #ithen for k := 1 step 1 until 2X ndo 
afl, k] := afl, k] — afi, k] x afl, j]; 
should be 
if] ~ i then for k := 2 X n step -1 untilido 
afl, k] := afl, k] — ali, k] x all, i]; 


Given these changes, j becomes superfluous in the second i loop, 
and the other references to j may be changed to references to i. 

INVERT obtained the following results: 

The computer inverted a 17-by-17 matrix whose elements were 
integers less than ten in absolute value. When the matrix and its 
inverse were multiplied together, the largest nondiagonal element 
in the product was — .00003. Most nondiagonal elements were less 
than .00001 in absolute value. 

INVERT was tested using finite segments of the Hilbert matrix. 
The following results were obtained in the 4 x 4 case: 


16.005 —120.052 240.125 —140.082 

— 120.052 1200.584 —2701.407 1680.917 
240.126 —2701.411 6483.401 —4202.217 
— 140.082 1680.920 —4202.219 2801 .446 


The exact inverse is: 


16 ~120 240 —140 
—120 1200 —2700 1680 
240 —2700 6480 —4200 
—140 1680 —4200 2800 


INVERT was also coded for the LGP-380 in machine language 
and the 24.1 extended range interpretive system. This system, 
which uses 30 significant bits for the fraction, obtained the follow- 
ing as the inverse of the 4 X 4 Hilbert matrix: 


16.000 —120.001 240.001 —140.001 
—120.001 1200.006 —2700.015 1680 .010 
240.001 —2700.016 6480.037 —4200.024 
— 140.001 1680.010 —4200.024 2800 .016 


The program coded in the 24.0 interpretive system successfully 
inverted a matrix consisting of ones on the minor diagonal and 
zeros everywhere else. 
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INVERT [T. C. Wood, Comm. ACM, Apr. 1961] 
P. Naur 

Regnecentralen, Copenhagen, Denmark 


INVERT cannot be recommended since it does not search for 
pivot and therefore will give poor accuracy. This is confirmed by 
the figures quoted by Knapp and Shaman in their certification 
[Comm. ACM 4 (Nov. 1961), 498]. The results obtained by them 
using 30 significant bits for the fraction may be compared directly 
with those obtained using INVERSION II (Algorithm 120) and 
gjr with the Grer ALcou system (see certification below). In- 
verting the 4 X 4 segment of the Hilbert matrix, the largest error 
in any element is found to be: 
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Subscripts Error 


INVERT (Knapp and Shaman) 3,3 0.037 
INVERSION II\ (see certification of 3,3 0.0306 
gjr Alg. 120) 4,3 0.00010 


In view of this basic shortcoming of Algorithm 42, it is un- 
necessary to report on other features of it. 


CORRECTION TO EARLIER REMARKS ON AL- 
GORITHM 42 INVERT, ALG. 107 GAUSS’S METHOD, 
ALG. 120 INVERSION II, AND gjr [P. Naur, Comm. 
ACM, Jan. 1963, 38—40.] 

P, Naur 

Regnecentralen, Copenhagen, Denmark 


George Forsythe, Stanford University, in a private communi- 
cation has informed me of two major weaknesses in my remarks on 
the above algorithms: 

1) The computed inverses of rounded Hilbert matrices are com- 
pared with the exact inverses of unrounded Hilbert matrices, in- 
stead of with very accurate inverses of the rounded Hilbert 
matrices. 

2) In criticizing matrix inversion procedures for net searching 
for pivot, the errors in inverting positive definite matrices cannot 
be used since pivot searching seems to make little difference with 
such matrices. 

It is therefore clear that although the figures quoted in the 
earlier certification are correct as they stand, they do not sub- 
stantiate the claims I have made for them. 

To obtain a more valid criterion, without going into the con- 
siderable trouble of obtaining the very accurate inverses of the 
rounded Hilbert matrices, I have multiplied the calculated in- 
verses by the original rounded matrices and compared the results 
with the unit matrix. The largest deviation was found as follows: 


Maximum deviation from elements of the unit matrix 


Order INVERSION II gjr . Ratic 
2 —1.49;5—8 —1.4919—8 1.0 
3 —4.7710—7 —8.3419—7 0.57 
4 —9.5419—6 —3.4819—5 0.28 
5 ~7.3210—4 ~4.5810—4 | 1.6 
6 —1.61i9—2 —1.421.>—-2 1.1 
7 —5.7819—1 —5.4719—1 1.1 
8 —1.2019—2 —1.38101 8.7 
9 —4.91r01 —2.22:01 2.2 


This criterion supports Forsythe’s criticism. In fact, on the 
basis of this criterion no preference of INVERSION II or gjr can 
be made. 

The calculations were made in the Gier ALGoL system, which 
has floating numbers of 29 significant bits. 
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ALGORITHM 43 

CROUT WITH PIVOTING II 

Henry C. THACHER, JR.* 

Argonne National Laboratory, Argonne, Illinois 


real procedure INNERPRODUCT (u,v) index : (k) start : (s) 

finish : (f); 

value 8, f; integer k, s, f; real u, v; 
comment INNERPRODUCT forms the sum of u(k) X v(k) for 
k =s,s+l,...,f.Ifs > f, the value of INNERPRODUCT is 
zero. The substitution of a very accurate inner product proce- 
dure would make CROUT more accurate; 
comment INNERPRODUCT may be declared in the head of 
any block which includes the block in which CROUT is de- 
clared. It may be used independently for forming the inner 
product of vectors; 
begin 
real h; 
h:=0; fork := sstep1 until f doh := h+u X v; 
INNERPRODUCT := h 
end INNERPRODUCT; 
procedure CROUT II (A, b, n, y, pivot, det, repeat) 
comment This procedure is a revision of Algorithm 16, Crout 
With Pivoting by George IX. Forsythe, Comm. ACM 3, (1960) 
507-8. In addition to modifications to improve the running of 
the program, and to conform to proper usage, it provides for 
the computation of the determinant, det, of the matrix A. The 
solution is obtained by Crout’s method with row interchanges, 
as formulated in reference [1], for solving Ay = b and transform- 
ing the augmented matrix [A b] into its triangular decomposi- 
tion LU with all L(k,k) = 1. If Ais singular we exit to ‘singular,’ 
a nonlocal label. pivot (k) becomes the current row index of 
the pivot element in the k-th column. Thus enough information 
is preserved for the procedure to process a new right-hand 
side without repeating the triangularization, if the boolean pa- 
rameter repeat is true. The accuracy obtainable from CROUT 
would be much increased by calling CROUT with a more accu- 
rate inner product procedure than INNERPRODUCT. 

The contributions of Michael F. Lipp and George E. Forsythe 
by prepublication review and pointing out several errors are 
gratefully acknowledged; 

comment Nonlocal identifiers appearing in this procedure are: 
(1) The nonlocal label ‘singular’, to which the procedure exits 
if det A=0, and (2) the real procedure ‘INNERPRODUCT’ 
given above; 


value n; array A, b, y; integer n; integer array 
pivot; real det; Boolean repeat; 
begin 
integer k, i, j, imax, p; real TEMP, quot; 
det := 1; if repeat then go to6; 
for k := 1 step | until n do 
1: begin 
TEMP := 0; 
for i:= k step 1 until n do 
2: begin 
Ali,k] := A[i,k] - INNERPRODUCT (Al[i,p], Alp,k], 
P, I, k—1); 
if abs(A[i,k]) > TEMP then 
3: begin 


TEMP := abs(A{i, k]);\ imax := i 
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end 3 
end 2; 
pivot {k] := imax; 
comment We have found that A[imax, k] is the largest pivot in 
column k. Now we interchange rows k and imax; 
if imax ~ k then 


4: begin det := — det; for j := 1 step 1 until n do 
5: begin 
TEMP := A[k,j];\ A[k,j] := Alimax, j]; Alfimax, j] 
:= TEMP 
end 5; 
TEMP := b{k]; b{k] := bfimax]; blimax] := TEMP 
end 4; 


comment The row interchange is done. We proceed 
to the elimination; 
if A[k,k] = 0 then go to singular; 
quot := 1.0/A[k,k]; 
for i .= k+1 step 1 until n do 
Ali,k] := quot X Ali,k]; 


for } := k+1 step | until n do 
Afk,j] := Alkj] -— INNERPRODUCT (A{k,pl 
Alpsjl, p, 1, k—1); 
b{k] := b{k] — INNERPRODUCT (A[k,p], b[p!] 
p,i, k-1) 
end 1; go to7; 
‘comment 


The triangular decomposition is now finished, 

and we skip to the back substitution; 

6: begin comment This section is used when the formal 
parameter repeat is true, indicating that the matrix A 
has previously been decomposed into triangular form by 
CROUT II, with row interchanges. specified by pivot, 
and that it is desired to solve the linear system with a 
new vector b, without repeating the ‘riangularization; 

for k := 1 step 1 until n do 


begin 
TEMP := b[pivot[k]]; b[pivot{k]]:= blk]; b{k]:= 
TEMP; blk] := b{k] — INNERPRODUCT 
(A{k, p], b[p], p, 1, k—1) end; 
end 6; 
7: for k := n step — 1 until 1 do 
8: begin if — repeat then det := A[k,k] X det; 
y{k] := (b{k] — INNERPRODUCT (Al[k,p], ylpl, p, 


k+1, n)/A[k,k] 
end 8; 
end CROUT II; 


REFERENCE: 


(1) J. H. Witkinson, Theory and practice in linear systems. In 
John W. Carr III (editor), Application of Advanced Nu- 
merical Analysis to Digital Computers, pp. 48-100 (Lectures 
given at the University of Michigan, Summer 1958, College 
of Engineering, Engineering Summer Conferences, Ann 
Arbor, Michigan [1959]). 


* Work supported by the U. 8S. Atomic Energy Commission. 
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CROUT II (Henry C. Thacher, Jr., Comm. ACM, 1960) 
Henry C. THAcHER, JR.* 

Argonne National Laboratory, Argonne, Illinois 


CROUT ITI was coded by hand for the Royal Precision LGP-30 
computer, using a 28-bit mantisa floating point interpretive 
system (24.2 modified). 

The program was tested against the linear system: 


12.1719 27.3941 1.9827 7.3757 6.6355 

A =| 8.1163 23.3385 9.8397 4.9474 b = |6.1304 
3.0706 13.5434 15.5973 7.5172 4.6921 
3.0581 3.1510 6.9841 13.1984 2.5393 

with the following results: 

12.171900 27 394100 1.9827000 73756999 
A’ = | 0-25226957  6.6327021 —15.097125 5.6565352 
~ | 0.25124262 —0.56260107 14.979620 14.527683 
0.66680633  0.76468695 —0.20207132 —1.3606142 
6.6354999 1 0.15929120 

br 3.0181653 Jechiel? __ |0.14691771 
25702026 DEVON hg 0.11257482 
—0.082780734 4 (0.060840712 


det = ~—1645.4499. All elements of Ab — y were less than 1077 in 
magnitude. Identical results were obtained with the same b, 
and repeat true. With the same b and the last row vector of A 
replaced by (19.1927, 33.4409, 25.1298, 5.2811), i.e. A4,j = A1j, 
+ 2A 2,3 — 3A 3, j, the results were: 
det = 0.10924352 « 10-3, 
y = (0.29214425 & 108, —0.12131172 & 108, 0.72411923 x 107, 
—0.51018392 X 107) 
Failure to recognize this singular matrix is due to roundoff, eithei 
in the data input or in the calculation. 


* Work supported by the U.S. Atomic Energy Commission. 
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CROUT II [Henry Thacher, Jr., Comm. ACM (1960), 
176] 

C. Dominco AnD F. Ropriguerz-GIL 

Universidad Central, Caracas, Venezuela 


CROUT II was coded in PUC-R2 and tested in the IBM-1620. 
Two types of INNERPRODUCT subroutines were used. The first 
one finds the scalar product in fixed-point arithmetic to increase 
accuracy, using an accumulator of 32 digits. The second one uses 
ordinary floating-point with eight significative figures. 

Using a unit matrix as right-hand side, a 6 X 6 segment of Hil- 
bert matrix was inverted. The inverse was inverted again. 

The maximum difference between this result and the original 
segment of Hilbert matrix was: : 


Using fixed-point INNERPRODUC......... 8.2426 < 10-4 
(Value of determinant..................05. 4.7737088 X 10738) 

Using floating-point INNERPRODUC...... 3.014016 Xx 10°? 
(Value of determinant................0005 4.4950721 & 10718) 


Two typographical errors were observed in the algorithm: 


43-P 2- 0 


The statement: 

b{k] := g{k] - INNERPRODUCT (Al[k,p], b[p], p,7,k—1) 
should be: 

b[k] := b{k] — INNERPRODUCT (Al|k,p], b[p], 1,4—1) 
The statement: 
ylk] := (6({k] - INNERPRODUCT (A[k,p], y[p], p,k+1,n)/A [k,k] 
should be: | 
y{k] := (6[k] - INNERPRODUCT (A[k,p], y[p], p,k+1,n))/AI[k,4] 


Storage may be saved eliminating the array y and using instead 
the array b, in which the solution is formed. 
A previous certification of this algorithm [Comm. ACM 4, 
4 (Apr. 1961), 182] was tested again with the same results. Two 
errors were detected in the certification: The row that must re- 
place the last row of A in order to obtain a singular matrix must be: 
19,1927 33.4409 -—251298 —5.2811 
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BESSEL FUNCTIONS COMPUTED RECURSIVELY 

Maria E. Wosctcxi 

RCA Digital Computation and Simulation Group, 
Moorestown, New Jersey 


procedure Bessfr(N, FX, LX, Z) Result: (J, Y); 
value LX, FX, N; 
real FX, LX, Z; real array J, Y; integer N; 
comment Bessel Functions of the first and second kind, Jp(X) 
and Yp(X), integral order P, are computed by recursion for 
values of X, FX S X S LX, in steps of Z. The functions are 
computed for values of P, 0 S P S N. M[SUB)], the initial 
value of P being chosen according to formulae in Erdelyi’s 
Asymptotic Expansions. The computed values of Jp(X) and 
Yp(X) are stored as column vectors for constant argument in 
matrices J, Y of dimension (N+1) by entier ((LX — FX)/Z + 1); 
begin real PI, X, GAMMA, PAR, LAMDA, SUM, SUM1; 
integer P, SUB, MAXSUB; 
PI := 3.14159265; 
GAMMA := .57721566; 
PAR := 63.0 — 1.5 X fn (2 x PI); 
MAXSUB := entier ((LX — FX)/Z); 
begin real array JHAT [0:N, 0:MAXSUB); 
integer arrey M[(0:MAXSUB]; 
SUB := 0; 
for X := FX step Z until LX do 
begin if (X > 0) A(X < 10) then M [SUB] := 2 X entier (X) + 9 
else 
begin real ALOG; 
ALOG := (PAR — 1.5 X én (X))/X; 
M [SUB] := entier (X XX (exp (ALOG) + exp 
(—ALOG))/2) end; 
if N > M [SUB] then 
begin for P := M [SUB] + 1 step 1 until N do 
J [P, SUB] := 0 end; 
JHAT [M [SUB], SUB] := 10 Tf (—9); 
comment Having set the uppermost Jp(X) to a very small 
number we are now going to compute all the Jp(X) down to 
P = 0; 
for P := M [SUB] step —1 until 1 do 
JHAT [P—1, SUB] := 2 x P/X x JHAT [P, SUB] —JHAT 
{(P+1, SUB]; 
SUM := SUMI1 := 0; 
for P := 2 step 2 until (M [SUB] + 2) do 
SUM := SUM + JHAT [P, SUB]; 
LAMDA := JHAT [0, SUB] + 2 x SUM; 
for P := 0 step 1 until N do 
J iP, SUB] := JHAT [P, SUB] /LAMDA; 
comment Jp(X) have been computed py use of Jp(X); 
for P := 2 step 2 until (M [SUB] + 2) do 
SUM1 := SUMI1 +- (-1) x (-1) tf P + J [2 x P, SUB 


/2/P; 
Y [0, SUB] := 2/PI X (J (0, SUB] X (GAMMA + ¢n(X/2)) 
-+ 4 * SUM1); 


for P := 0 step 1 until (M|ISUB]—1) do 

Y [P+1, SUB] := (—2/PI/P + J [P+1, SUB] x Y [P, 
SUB]))/J [P, SUB]; 

SUB := SUB + 1 end end end 
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ALGORITHM 45 

INTEREST 

Prerer Z. INGERMAN 

University of Pennsylvania, Philadelphia, Pa. 


procedure monpay (i, B, L, t, k, m, tol, goof) 

comment This procedure calculates the periodic payment 
necessary to retire a loan when the interest rate on the loan 
varies (possibly from period to period) as a function of the as- 
yet-unpaid principal. . 

The formal parameters are: i, array identifier for the vector 
of interest rates; —B, array identifier for the minimum amounts 
at which the corresponding i applies; —L, the amount to be 
borrowed; —t, the number of periods for which the !oan is to 
be taken out; —k, the number of different interest rates (and 
upper limit for vectors i and B); —m, the desired periodic pay- 
ment; —tol, the allowable deviation of m from some ideal; 
and goof, the error exit to use if convergence fails. The only 
output parameter is m. For further discussion, see Comm. 
ACM 3 (Oct. 1960), 542; 

begin array h, § [i:k, 1:t], M, X [1:k]; 
integer array T, a, b [1:k]; 
integer p, q, r, sa, sb, I, ib, mb, nb; 
comment This section sets up the procedure; 
for p := 1 step 1 until k do 
begin for q := 1 step 1 until t do 

begin hp,q := ip%; 

Sp.q 2 (Npva — 1)/(ip — 1) end; 

if p = 1 then X, := 0 else X, := By X (ip-i — ip); 

M, := L & (hp.t/Sp.t) end; 
sa := sb := ib := mb := 0; nb := t; 
for p := 1 step 1 until k do 
begin a, := entier (Bp4i/Mp41 + 0.5) — sa; 


Sa := Sa + &p; 
Ty, := bp := entier (Bpii/Mp — 0.5) — sb; 
sb := sb + by; 


if b) > mb then 

begin ib := p, nb := nb — mb; mb := bp end 
else nb := nb — by end; 

nb; 


for p := 1 step | until k do 
I:= IX (ap — bp + 1); 
comment Having counted the number of possible iterations 
and established a set of trial values for the T,’s, a trial m is 
found; 


D:=1; E:=F:=0; 
newm: for p := 1 step 1 until k do 
begin D := D X hy. tp; 
u:= 1; 


if p ~ 1 then for q.:= 1 step 1 until p — 1 
dou := u X hata; 
E := E+ 8p,m) X u; 
v := 0; 
if p ~ 1 then for r := 1 step 1 until p 
do v := v + X;; 
F := F + u X vend; 
m:= (L X D+ F)/E; 
comment Now find out whether m is good enough 
q:=1; F:=D:=0; 
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for p := 1 step 1 until t do. 
begin get F: F := (D +m — E)/(1 + ig); 
if Byy: 2 F then D := F else q := q +1; 
if D ¥ F go to get F end; 
if abs (D — L) S tol then go to exit; 
comment If not within tolerance, adjust T,’s and try 
again ; 
Pp := 0; 
redo:p:=p+1; 
if p ~ ib then 
begin if T, 2 a, then 
begin T;, := Tip + Tp — bp 
T, := bp end end 
else begin 


Tp := T, +1; 
Tin := Tin — 1; 
p := k end; 


if p = k then I := I — 1 else go to redo; 
go to if | > 0 then newm else goof; 
exit: end monpay; 
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INTEREST [Peter Z. Ingerman, Comm. ACM Apr. 1961 
and Oct. 1960] 

Cari B. Wricut 

Dartmouth College, Hanover, N. H. 


INTEREST was translated into Dartmouth College Computa- 
tion Center’s ‘Self Contained ALGOL Processor’’ for the Royal- 
McBee LGP-30. When using ScaLp, memory capacity is severely 
limited and thus it was necessary to run this program in two 
blocks. Block I ended with the computation of I, and Block II 
started with the ‘“‘newm’’ loop. After making the changes listed 
below, test problems using up to three interest rates and up to 18 
time periods were used with the following results: 


Final 
Balance* Tolerance 


Loan Periods Interest Rates Payments 
$100.00 1 0.05 $105.00 $0.00 $0.25 
1800.00 10 0.03 211.01 0.05 4.50 
875.65 8 0.08 to 500.00 
0.05 over 500.00 139.78 —1.49 2.19 
14750.00 18 0.06 to 5000.00 
0.05 to 10,000.00 
0.04 over 10,000.00 1201.70 10.52 36.88 


* Hand calculation. 


It is noted that in each case the final balance is within the pre- 
scribed tolerance (0.0025 of the loan). 

In the following corrections bracketed subscripts replace 
ordinary subscripts and exponentiation is represented by 1 
rather than superscript. 

The following corrections should be made in the Note on In- 
terest in the October, 1960, issue of Comm, ACM: 

1. Definition of B[n]: Replace ‘‘minimum” by ‘‘maximum’’. 
Replace ‘‘j[n]’’ by “‘j[n—1]’’. 

2. Define B[k+1] = L. 

3. Definition of K[n]: Replace ‘“‘B[n]” by “B[n-+1]’’. 

The following corrections were found necessary in the proce- 
dure: 


COLLECTED ALGORITHMS (cont.) 


1. The upper limit of the vector B is k+1, not k. It is not neces- 
sary to change the upper limit of the J-vector. (See correction 4 
below.) 

2. D, E, F, u, v were not declared and must be declared as real. 

3. In the array declaration replace ‘“‘“M[1:k]” by “M[1:4+1]’’. 

4. As j approaches 0, 7 approaches 1 and lim (h/S) = 1/t. Thus 
for j(k+1] = 0, 7[k+1] = 1, and M[k+1] = Z/t. Thus after 

_ M{p] := LX (h{p,t]/S[p,t]) end; 
insert 

M[k+1] := L/t; Blk+1] := L; 

5. In the conditional statement following computation of b[p], 
replace ‘‘>’’ by “‘2”’. 

6. In same conditional statement, next line, ‘‘mb := bp’’ should 
read ‘mb := b[p]’’. 

7.D:=1; #£:=F :=0; 

newm: for p := 1 step 1 until k do 
should be changed to 
neum: D:=1; H:= F :=0; 
for p := 1 step 1 until k do 
8. begin get F: F := (D+m—E)/(1+7[9]); 
if Blq+1] 2 F then D := F else g :=q+1; 
if D # F go to ge F end; 
should be changed to read as follows: 
begin get F: F := (D+m)/i[q]; 
if Blq+1] = F then D := F else 
begin if q < k then q := q+ 1 else D := F end; 
if D # F then go to get F end; 
Note that the ‘‘then”’ in the last line was omitted from the original 
procedure. 
9. In the ‘‘redo’”’ loop insert a semicolon after the statement 
T[ib] := T{zb] + T[p] — blip]; 
10. In the ‘‘redo’’ loop, next line, omit the second ‘‘end’’. 
11. In the ‘‘redo”’ loop, 


p :=k end; 
should be changed to 
p := k end end; 
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ALGORITHM 46 

EXPONENTIAL OF A COMPLEX NUMEER 
JoHN R. HERNDON 

Stanford Research Institute, Menlo Park, California 


procedure EXPC (a,b, c,d); valuea,b; real a, b,c, d; 
comment This procedure computes the number, c+di, which 
is equal to e@*b, 
begin c := exp (a); 
d := ¢ X sin (b); 
c:= c X cos (b) - 
end EXPC;. : 


CERTIFICATION OF ALGORITHM 46 
EXPONENTIAL OF A COMPLEX NUMBER . R. 
Herndon, Comm. ACM 4 (Apr., 1961), 178) 
A. P. ReLPH 
Atomic Power Div., The English Electric Co., Whetstone, 
England 
Algorithm 46 was translated using the Deucr ALGoL compiler, 
no corrections being required, and gave satisfactory results. 
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ALGORITHM 47 

ASSOCIATED LEGENDRE FUNCTIONS OF THE 
FIRST KIND FOR REAL OR IMAGINARY 
ARGUMENTS 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


procedure LEGENDREA (m,n,x,r); value m,n, x, r; 
integer m,n; real x,r; 
comment This procedure computes any P,™(x) or Py™(ix) for 
n an integer less than 20 and m an integer no larger than n. 
The upper limit of 20 was taken because (42)! is larger than 
10*. Using a modification of this procedure values up to n=35 
have been calculated. If P,™(x) is desired, r is set to zero. If 
r is nonzero, P,™(ix) is computed; 
begin 
integer i,j; array Gamma [1:41]; 
real p, Z, Ww, y; 
ifn = 0 then 
begin p := 1; 
go to gate end; 
ifn <m then 
begin p := 0; 
go to gate end; 
zo lj>w := 2; 
if n=m then go to main; 
for 1 := 1 step 1 until n—m do 
Zi xX XK ZB; 
Gamma [1] := 1; 
for i := 2 step 1 until n+n+1 do 
begin Gamma [i] := w X Gamma [i—1]; 
w := w+l end; 
w:=1; y := w/(x X x); 
if r=0 then 
begin y := —y; 
Ww := —wend; 
if x=0 then 
begin i := (n—m)/2; 
if (i+i) # (n—m) then 
begiz: p := 0; 
go to gate end; 
p := Gamma [m+n-+1]/(Gamma [i+1] X Gamma 
[m+i-+1]); 
go to last end; 
j:=3; p:=0; 
for i := 1 step 1 until 12 do 
begin if (n—m-+2)/2 < i then go to last end; 
p := p + Gamma [n+n—i-—i+3] X z/(Gamma 
fi] X Gamma [n—i+2] X Gamma [n—i-i-— 


main: 


last: 2:= 1; 

for i := step | until n do 
Z i= 2+2; 

Pp := p/z; 

ifr ~ 0 then 
begin i := n—n/4; 
if 1 <i then 

p := —p end; 
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if m = 0 then go to gate; 
} := m/2; z:= abs(w+x X x); 
ifm ¥ (j+j) then 

begin z := sqrt (z); 


J] := m end; 
for i := step 1 until j do 
P:=pX Z; 


gate: LEGENDREA := p 
end LEGENDREA; 


CERTIFICATION OF ALGORITHM 47 
ASSOCIATED LEGENDRE FUNCTIONS OF THE 
FIRST KIND FOR REAL OR IMAGINARY ARGU- 
MENTS [John R. Herndon, Comm. ACM, Apr. 1961] 
RICHARD GEORGE* 


Argonne National Laboratory, Argonne, IIl. 
* Work supported by United States Atomic Energy Commission. 


This procedure was programmed in Fortram for the IBM 1620 
and was tested with a number of real arguments. A few errors were 
detected: 

1. In the following sequence the end must be removed: 


begin if (n — m + 2)/2 < 7 then go to last end; 
2. In these, the lower bound of 1 is needed: 


for i 
for 7 


step 1 until 1 do 
step | until j do 


3. There are four places where integer arithmetic is clearly in- 
tended and we must substitute the symbol + for the symbol /. 
In addition, it might be mentioned that the statement 


if n = m then go to main; 


could be omitted from the ALGou program without harm, though 
the ForTRAN version requires it. Here, and elsewhere in the pro- 
cedure, one might make an equivalent but more succinct state- 
ment. With change in style, the variable j could be eliminated. 


CERTIFICATION OF ALGORITHM 47 [S16] 
ASSOCIATED LEGENDRE FUNCTIONS OF THE 
FIRST KIND FOR REAL OR IMAGINARY 
ARGUMENTS [John R. Herndon, Comm. ACM 4 
(Apr. 1961), 178] 
S. M. Coss (Reed. 6 Feb. 1969, 12 May 1969 and 9 July 
1969) 
The Plessey Co. Ltd., Roke Manor, Romsey, Hants, 
England 


KEYWORDS AND PHRASES: Legendre function, associated 
Legendre function, real or imaginary arguments 
CR CATEGORIES: 5.12 


This procedure was tested and run on the I.C.T. Atlas com- 
puter. 


COLLECTED ALGORITHMS (cont.) 


In addition to the errors mentioned in the certification of August 
1963 [2] the following points were noted. 

1. The requirement that when n < mp := 0 must take prece- 
dence over p := 1 when n = O. Hence the order of the first two 
if statements must be interchanged. 

2. Most computers fail on division by zero. Hence the state- 
ment beginning if zx = 0 then and ending with go to last 
end; should be inserted between w := 1; andy := w/(rXz). 

3. When zx = 0, if the argument of the Legendre function is to 
be considered as real p must be multiplied by (—1)*. This is 
achieved by inserting after the statement beginning p := Gamma 
[Im+n+1] the if statement 


if r then p := p X (—1) T?; 
(For a change in the meaning of r see item 5 below.) 

4. After the label last in the compound statement begin- 
ning if r #0 the statement 7 := n — n+4; is wrong. This 
should read 
t:=n—4X (n+4); 

5. Since r is used only as an indicator it is better that it be 
declared as Boolean. It can then be given the value true if the 
argument of the Legendre function is x and false if it is iz. The 
following program changes are then necessary. The statement 
beginning 
if r = 0 then 
becomes 
if r then 
The statement beginning 
ifr ~ 0 then 
becomes 
if |] 7 then 


6. Computing time can be saved in several ways. First we 
should declare another integer k and set it equal to n — m. The 
first statement of the procedure is then 


k:=n—m™; 
The next statement will begin 
if k < 0 then 


(This replaces ifn < mthen whose position has been changed 
in accordance with item 1 above.) 

n — m is then replaced by k in the lines 

for 7 := 1 step 1 until n — mdo 

and 

if +1) ~ (n—m) then 


Removing j as suggested in the previous certification leaves it 


free to be set to k + 2. This requires the following modification: 


instead of the unnecessary statement ifn = m then go to main 
put 
jim k + 2; 

In the statement beginning if z = 0 then replace the line 
begin 7 := (n—m) + 2; 
by 
begin 7 := 7; 

In the for loop beginning for 7 := 1 step 1 until 12do a 
further small saving in computer time could be achieved by setting 
k to n — 7. The loop thus becomes 


for 7 := 1 step 1 until 12 do 
begin if 7 + 1 < 7 then go to last; 
k:=n-—1; 


47-P 2- 0 


p := p + Gammal[2Xk+3] X z/Gammalt] X Gammal[k+2] X 
Gammal[k—i—m-+8]); 

z2:=2xX%y 

end 


For real argument the program was tested as follows. 


(i) «2 = 000.1)1, m = 0(1)3, n = 0(1)3 
(ii) 2 = 1.2(0.2)2.8, m = 0(1)2, n = 0(1)2 
(iii) m = 0, n = 9, 2 = 0(0.2)1, 2(2)10. 


For imaginary argument we used 
x = 0(0.2)2, m = 0(1)2, n = O(1)2. 


Checking for real argument was carried out where possible 
using [1], agreement being obtained in all cases to the maximum 
number of figures available, which varied between 6 and 8. For all 
other cases [3] had to be used, giving only a 5 figure check. 

REFERENCES: 

1. ABRAMow1Tz, M., anp Stecun, I. A. Handbook of mathe- 
matical functions. AMS 55, Nat. Bur. Stand. US Govt. Print- 
ing Off., Washington, .D.C., 1964. 

2. GeorGeE, R. Certification of Algorithm 47. Comm. ACM 6 
(Aug. 1963), 446. 

3. Morse, P. M., anp Fessacu, H. Methods of Theoretical 
Physics Pt. II. McGraw Hill, New York, 1953. 
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ALGORITHM 48 

LOGARITHM OF A COMPLEX NUMBER 

JoHN R. HERNDON , 

Stanford Research Institute, Menlo Park, California 
procedure LOGC(a, b, c, d); value a, b; real a, b, c, d; 


comment This procedure computes the number, c+di, which 
is equal to log.(a+bi); 


begin c := sqrt (a X a+b Xb); 

d := arctan (b/a); 

c := log (c); 

ifa < O then d := d+3.1415927 
end LOGC; 


CERTIFICATION OF ALGORITHM 48 

LOGARITHM OF A COMPLEX NUMBER (J. R. 
Herndon, Comm. ACM 4 (Apr., 1961), 179) 

A. P. Reve 

Atomic Power Div., The English Electric Co.. Whetstone, 

England 

Algorithm 48 was translated using the Deucs ALGot compiler, 
after certain modifications had been incorporated, and then gave 
satisfactory results. 

The original version will fail if a = 0 when the procedure for 
arctan is entered. It also assumes that —1/2<d<3n/2, whereas the 
principal value for logarithm of a complex number assumes 
—a<dSr. 

Incidentally, the ALGou 60 identifier for natural logarithm is In, 
not log. 

The modified procedure is as follows: 


procedure LOGC (a,b,c,d); vafuea,b; real a,b,c,d; 
comment This procedure computes the number c + di which is 
equal to the principal value of log, (a + bi). If a = 0 then c is 
put equal to —147 which is used to represent ‘‘— infinity”; 
begin integer m,n 
mM := sign (a); n := sign (b); 
if a = 0 then begin c := —1047; 
d := 1.5707963 X n; 
go to k 
end; 
c := sqrt(a X a+ bx b); 
¢ := In (ce); 
d := 1.5707963 X (I—m) X (1+n—nXn) + arctan (b/a); 
k: end LOGC: 


REMARK ON ALGORITHM 48 

LOGARITHM OF A COMPLEX NUMBER [John R. 
Herndon, Comm. ACM 4 (Apr. 1961)] 

Marcaret L. JOHNSON AND WARD SANGREN 

Computer Applications, Inc., San Diego, Calif. 
Considerable care must be taken in using the arctan function. 

In Algorithm 48 two such difficulties are ignored. First it is 

necessary, because of a resulting division by zero, to deal sepa- 

rately with the case where the real part of the complex number 

is zero. Second, if the real part of the complex number is negative 
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and the argument of the logarithm is to have a value between 
—7n and x then the action depends upon the sign of the imaginary 
part of the complex number. For clarity the following procedure 
exhibits in sequence the alternatives: © 
procedure LOGC (a,b,c, d); value a,b; real a, b,c, d; 
comment This procedure computes the number c+di which is 
equal to log. (a+67). It is assumed that the arctan has a value 
between —7/2 and 7/2. 
begin if a>0 then begin THETA := 0; go to SOL end; 
if a<0Ab20 then begin THETA := 3.1415927; 
go to SOL end; 
if a<0/Ab<0 then begin THETA := —3.1415927; 
go to SOL end; 
if a=0/Ab=0 then begin ¢ := d := 0; 
go to RETURN end; 
if a=0Ab>0 then begin c := In(b); d := 1.570963; 
go to RETURN end; 
if a=0Ab<0 then begin c := In(abs(b)); 
d := 1.570963; go to RETURN end; 
SOL: d := arctan (b/a) + THETA; 
¢ := sqrt(axa+bxb); 
c := In(c); 
RETURN: end LOGC 


REMARK ON REMARKS ON ALGORITHM 48 [B3] 

LOGARITHM OF A COMPLEX NUMBER [John R. 
Herndon, Comm. ACM 4 (Apr. 1961), 179; 5 (Jun. 62), 
347; 5 (Jul. 62), 391] 

Davin S. CoLuens (Recd. 24 Jan. 1964 and 1 Jun. 1964) 

Computer Laboratory, The University, Liverpool 3, 
England 


This procedure was designed to compute log.(a+67), namely 
ct+di, and although some very necessary precautions about its 
use have already been stated, some points seem to have escaped 
notice. In particular, A. P. Relph (Comm. ACM, June 1962, 347]. 
remarked that if a = 0, then c becomes ‘—infinity’, but this is only 
the case if b = 0 also. Margaret L. Johnson and Ward Sangren 
[Comm. ACM, July 1962, 391] conceded that a = b = 0 was aspecial 
case, but wrongly gave zero as the result. The only reasonable way 
of dealing with this case is to exit to some nonlocal label and to 
let the user decide whether to terminate his program or to assign 
particular values to c and d. The obvious values to use here are, for _ 
c, a negative number, larger than the largest which would be given 
by the procedure, and possibly zero for ad. (In an implementation 
where 2-” is the smallest representable nonzero number, the 
largest negative value of c possible is --89.416.) Finally, in the 
Johnson-Sangren version of the procedure, the last conditional 
statement should read 


ifa = 0 /) b < 0 then begin c := In(abs(b)); 
d := —1.570963; go to RETURN end; 


the omission of the minus sign in the original being probably 
typographical in origin. 
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ALGORITHM 49 ond; 
SPHERICAL NEUMANN FUNCTION ner 
JOHN R. HERNDON go to gate; 
Stanford Research Institute, Menlo Park, California t :m ain (x)/x; 

: £ i fe ‘= 1 t 1 til d 
real procedure SPHBEN (r,x); value r,x;: real r,x; ia sities els Bata 
comment: This procedure computes the spherical Neumann ar. fe +g—1)/(x—-t): 

function (+/2x)N;41/2(x). Infinity is represented by 10*7; ecaig 
begin real z, g, t; . end; 
if x=0 then gate: SPHBEN := 
begin s := 10 7 47; end SPHBEN; 
go to gate 


AGM Transactions on Mathematical Software, Vol. 4, No. 3, September 1978, Page 295. 


REMARK ON ALGORITHM 49 


Spherical Neumann Function 
[J.R. Herndon, Comm. ACM 4, 4 (April 1961), 179] 


John P. Coleman [Recd 17 February 1978] 
Department of Mathematics, University of Durham, Durham, England 
There is a typographical error in this algorithm. The finds 
si=sXx(g+g—1)/(x— 0; 
should read | oe 
Ss = sX(gt+g—1)/x-t; 


The aieostiea provides overflow protection only when x = 0. Overflow will still 
occur for x very close to zero. The range of values of x for which overflow occurs 
will depend both on the value of r and on the largest number the machine can 
hold. 
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ALGORITHM 50 

INVERSE OF A’ FINITE 
HILBERT MATRIX 

JOHN R. HERNDON 

Stanford Research Institute, Menlo Park, California 


SEGMENT OF THE 


procedure INVHILBERT (nS); 
real array §; 
comment This procedure computes the elements of the inverse 
of ann X n finite segment of the Hilbert matrix and stores them 
in the array §; 
begin real i, j, k; 
Stl, lj =nXn; 
for i := 2 step 1 until n do 
begin 
Sfi,i}:= (n+i-1) X M—i+]))/((i-1) XK G—-1)); 
Si, i] := Sfi-1, i—1] X Sli, i] * Shi, i] 


value n; real n; 


end; 
for i := 1 step 1 until n—1 do 
begin 
for ) := i+1 step 1 until n do 
begin 
k := j-1; 
Sfi,j] := —S[i, k] xX (n+k) X @—k)/(k X k) 
end 
end; 
for i := 2 step 1 until n do 
begin S[i, i] := Sfi, i]/G+i—-1); 
for j := 1 step 1 until i—1 do 
begin S{j, i] := 8G, 11/G+j-1); 
Sfi, j] := Sf, i 
end 
end 


end INVHILBERT; 


CERTIFICATION OF ALGORITHM 50 

INVERSE OF A FINITE SEGMENT OF THE HIL- 
BERT MATRIX [J. R. Herndon, Comm. ACM 4 
(Apr. 1961)] 

B. RaNDELL 

Atomic Power Division, The English Electric Co., Whet- 
stone, England 
INVHILBERT was translated using the Deuce ALGoL com- 

piler and the following corrections being needed. 

). S{1, 1] = n Xn, replaced by S[l, 1] := n XK n; 

2. Sj, i) := 8G, 1/aG+)-D) 

replaced by 8G, i] := SU, i/a+ j—- 1) 

The compiled program, which used a 20 bit mantissa floating point 

notation then produced the following 4 X 4 segment 


16.0 —120.0 240.0002 — 140.0 
120.0 1200.0 — 2700.0 1680 .0019 
240.0 — 2700.0 6480.0 —4200.0 
— 140.0 1680 .0019 — 4200.0 2800 .0039 
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REMARKS ON 
GORTHM 50 

INVERSE OF A FINITE SEGMENT OF THE 
HILBERT MATRIX [J. R. Herndon, Comm. ACM, 
Apr. 1961] 

P. Naur 

Regnecentralen, Copenhagen, Denmark 


AND CERTIFICATION OF AL- 


In addition to inserting the corrections indicated by B. Randell 
[Comm. ACM 6 (Jan. 1962), 50], we have modified and simplified 
the algorithm as follows: 

1. The types of n, 7, j and k have been changed to integer. 
This saves roundoff operations in subscripts. 

2. Explicit multiplications have been replaced by squaring. 
This saves code length and execution time, at least in a compiler 
like ours for the G1Er. 

3. Repeated references to subscripted variables have been 
eliminated, partly with the aid of an additional simple working 
variable, w, partly by using simultaneous assignments. 

4. An unnecessary begin end pair has been removed. 

In total, these changes, in addition to reducing the code length, 
have increased speed by a factor of 1.6. 

The resulting algorithm is as follows: 


procedure INVHILBERT (n,S); 

value n; integer 7; real array S; 

comment ALG. 50: This procedure computes the elements of 
the inverse of ann X n finite segment of the Hilbert matrix and 
stores them in the array S. The Hilbert matrix has the elements 

HILBERT{:,j] = 1/(@@+j7—1). The segments of this are known 

to be increasingly ill-conditioned with increasing size; 
begin integer 1, j,k; real w; 
w := S[1,1] := nf2; 
for 7 := 2 step 1 until do w 

(n—1+1)/(@—1) 12) 72; 
for 1 := 1 step 1 until n—1 do for j := 1+1 step 1 until n do 
begin 

k := j-1; 

S[t,j] := —Sla,k] X (n+k) X (n—k)/kT2 

end; 
for 7 := 2 step 1 until n do for j := 1 step 1 until 7 do 

Sli,7] := S[j,7] := SU,2]/@+3j—-1) 
end INVHILBERT; 

Both the original version and the above improved. one have 
been run successfully on the Gizr AuGoL system (30-bit man- 
tissa). The test program included: 

(a) Output of the 4 X 4 matrix, to be compared with the results 
of Randell [loc. cit.]. Results: 


:= S[i,7q] := w X ((n+i-1) X 


16.000000 —120.000000 240.000000 —140.000000 

— 120.000000 1200.000000 —2700.000000 1680.000000 
240.000000 —2700.000000 6480.000000 —4200.000000 
— 140.000000 1680.000000 —420().000000 2799.999977 


(b) For n := 1 step 1 until 15, the inverse of the segment was 
calculated by INVHILBERT and multiplied by the segment of 
the Hilbert matrix, and the result was compared with the unit 
matrix. The maximum error was divided by the largest element of 
the inverse to form a relative error. Some of the results, which 
were entirely satisfactory throughout, are given below: 


COLLECTED ALGORITHMS (cont.) 


Element of Largest element of 


Order max error abs (max error) INVHILBERT Relative error 
3 S[3,3] 2.3810—7 1.92302 1.2419—9 
6 S[2,4] 4.3919—3 4.41106 9.9610—10 
9 S[2,8] 1.2412 1.22, 11 1.01;5—9 

12 S15 ,9] 1.54106 3.661015 4.21;5—10 
15 S[1, 12] 1.06;011 1.151020 9.22:.—10 


(c) The time for a call of the revised INVHILBERT was 
found as follows: 


50-P 2- 


0 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 51 

ADJUST INVERSE OF A MATRIX WHEN AN 
ELEMENT IS PERTURBED 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


procedure ADJUST (n,d,i,j, A,B); valuei, j, n, d; 
integer i,j, n; real d; real array A, B; 
comment If the n X n matrix A=M™ and a change, d, is made 
in the i, j-th element of M this procedure will calculate the 
corrected matrix for M— by adjusting matrix A. The adjusted 
matrix is stored in B; 
begin integer r, S; 
real t; 
t := d/(Afj, i] X d+); 
for r := 1 step 1 until n do 
begin for s := 1 step 1 until n do 
B[r, s] = A[r, s] — t X Al[r, i] X Aj, s] end 
end ADJUST 


CERTIFICATION OF ALGORITHM 51 

ADJUST INVERSE OF A MATRIX WHEN AN 
ELEMENT IS PERTURBED [John R. Herndon, 
Comm. ACM 4 (Apr. 1961)] 

RicHARD GEORGE* 

Argonne National Laboratory, Argonne, III. 


This procedure was programmed in FortTRAN and reduced to 
machine code mechanically. It was run on the Argonne-built 
computing machine, Grorce. A floating-point routine was used 
which allows maximum accuracy to 31 bits. 

The procedure was tested for matrices with n ranging from 
2 to 10. For each value of n, there were 20 successive trials; each 
trial consisted of a random perturbation of a randomly selected 
element of the matrix M, followed by a use of apsust, followed 
by the matrix multiplication N := B-M. For each trial, the 
adjustment was evaluated by computing 


sum := > > Nii, al —n. 


tol jul 


For random perturbations between —1.0 and +1.0, the value 
of sum never exceeded 2.0:9—8. 
There are two typographical errors present: 


B[r,s)= A[r,s]—tX A[r,i]X Aj,s] end 


Bir,s] := Alr,s]—tXxAl[r,i]XA[j,s] end 


* Work supported by the U. S. Atomic Energy Commission. 
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ALGORITHM 52 

A SET OF TEST MATRICES 

Joun.R. HERNDON 

Stanford Research Institute, Menlo Park, California 


TESTMATRIX (n,A); 
real array A; 
comment This procedure places in A ann X n matrix whose 
inverse and eigenvalues are known. The n-th row and the n-th 
column of the inverse are the set: 1, 2,3, ... , n. The matrix 
formed by deleting the n-th row and the n-th column of the 
inverse is the identity matrix of order n—1; 
begin integer i, j; 
eas t, c, d, f; 
=t X (t+1) * (t+t—5)/6; 
r= 1/e; 
ree " := —d; 
fori:=1 ee 1 until n—1 do 
hegitet = 
Ali, n] : 


procedure value n; integer n; 


‘a x f; 
A[n, i] := Ali, nJ; 
Afi, i} := d * (c-—f X f); 
for j := 1 step 1 until i—1 do 
begin t := j; 
Afi, j] ~dx{x t; 
Alj, i] Afi, j] 
end 
end 


end TESTMATRIX; 


1 I I 


CERTIFICATION OF ALGORITHM 52 
A SET OF TEST MATRICES (J. R. Herndon, Comm. 
ACM, Apr. 1961) 
H. EK. GinBert 
University of California at San Diego, La Jolla, Calif. 
The statement 
=t X (t+1) X (t+t—5)/6; 
was changed to 
ec :=n X (n+l) X (n+n—5)/6; 
to make the inverse have the form described in the algorithm. The 
algorithm was translated to FortRAN and tested with a matrix 
eigenvalue program on the CDC 1604 computer at UCSD. 
The eigenvalues for the 20 X 20 test matrix are: 
1. 1.000000 


19.  ,01636693 
20. —.02493833 


REMARK ON ALGORITHM 52 

A SET OF TEST MATRICES (John R. Herndon, Comm. 
ACM, Apr. 1961) 

G. H. DuBay 

University of St. Thomas, Houston, Tex. 
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: In the assignment statement 

e:= tX(t+1)x(t +t -- 5)/6; (a) 
the :t is undefined. A suitable definitig¢n would -be provided by 
preceding (a)-with t := n; 


REMARKS ON AND CERTIFICATION OF 
ALGORITHM 52 

A SET OF TEST MATRICES [J. R. Herndon, Comm. 
ACM, Apr. 1961} 

P. Naur . 

Regnecentralen, Copenhagen, Denmark 


In addition to inserting the correction indicated by H. E. 
Gilbert (Comm. ACM (Aug. 1961), 339] the algorithm was simpli- 
fied by using the simultaneous assignment and by eliminating the 


local variables ¢ and f. The resulting algorithm is as follows: 
procedure. TESTMATRIX (n,A); 


value n; integer 7; real array A; 
comment ALG. 52: This procedure places in A ann X n matrix 
_ whose inverse and eigenvalues are known. The nth row and the 
nth column of the inverse are the set: 1, 2, 3, ..., n. The matrix 
formed by deleting the nth row and the nth column of the in- 
verse is the identity matrix of order n—1; 
pis integer 1,j;_ real c,d; 
= 2X (n+l) X Ute 5)/6; 
= 1/e; 
cae = —d; 
for 7 := 1 step 1 until n—1 do 
begin 
Ali,n] := Anal := dX 1; 
Ali,t] := d & (c—772); 
for j := 1 step 1 until 7—1 do A[z,j] := Afj,t] := 
end 


end TESTMATRIX; 


This version of the algorithm was successfully run in the G1ER 
ALGOL system together with the inversion procedures INVER- 
SION IT and gjr (see Certification of Algorithm 120 below). From 
the figures produced by INVERSION II it looks as if the determi- 
nant of these matrices is given by 6/(n(n+1)(5—2n)), which is 
also the value of the element Aj{n,n]. For n > 3 the absolutely 
greatest element is A[1,1] = 1+ Al[n,n]. 


—dXtXj 


CERTIFICATION OF ALGORITHM 52 
A SET OF TEST MATRICES [J. R. Herndon, Comm. 
ACM, Apr. 1961] 
J. S. HitumMore 
Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 
The algorithm was corrected as recommended by H. E. Gilbert 
in his certification (Comm. ACM, Aug. 1961] and then successfully 
run using the Elliott ALGot translator on the National-Elliott 803. 
The matrices so generated were used to test the matrix inversion 


procedure GJR given by H. R. Schwarz in his article ‘‘An Intro- 
duction to ALGoL’”’ (Comm. ACM, Feb. 1962]. 
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ADDITIONAL REMARKS ON ALGORITHM 52 
A SET OF TEST MATRICES [J. R. Herndon, Comm. 
ACM (Apr. 1961), 180] 

P,. Naur 

Regnecentralen, Copenhagen, Denmark 


From an inspection of the results of eigenvalue-finding algo- 
rithms I conclude that all but two of the eigenvalues of TEST- 
MATRIX are unity while the two remaining are given by the ex- 
pressions 6/(pX (n+1)) and p/(nx (5-—2Xn)) where 

p =3 + sqrt ((4X%n—-3) K (n—-1) X& 3/(n+1)). 
These expressions have been used for the determination of ab- 
solute errors of the eigenvalues calculated by JACOBI, Algorithm 
85, and Householder Tridiagonalisation, etc. as reported below. 
They were also used to calculate the following table (using GIER 


ALGOL, with 29 significant bits): 


n Determinant Eigenvalues Differing from unity 

3 — .500 000 00 .224 744 87 —2.224 744 9 

4 — .100 000 00 .153 112 89 .653 112 89 
5 — .040 000 000 .113 238 08 .353 238 08 
6 — .020 408 168 .088 290 570 .231 147 71 
7 — .011 904 762 .071 428 571 .166 666 67 
8 — .007 575 757 6 .059 386 081 .127 567 90 
9 — .005 128 205 2 .050 422 549 .101 704 60 
10 — .003 636 363 6 .043 582 383 -083 582 383 
11 — .002 673 796 8 .038 097 478 -070 183 039 
12 — .002 024 291 5 .033 718 770 .060 034 559 
13 — .001 569 858 7 .080 128 103 .052 106 125 
14 — .001 242 236 0 .027 139 206 .045 772 747 
15 — .001 000 000 0 .024 619 013 .040 619 013 
16 — .000 816 998 47 .022 470 157 .036 359 046 
17 — .000 676 132 52 .020 619 902 .032 790 288 
18 — .000 565 930 96 .019 012 916 .029 765 605 
19 — .000 478 468 90 .017 606 429 .027 175 807 
20 — .000 408 163 27 .016 366 903 .024 938 332 


The figures for n = 20 agree very well with the results quoted by 


H. E. Gilbert in his certification [Comm. ACM 4 (Aug. 1961), 339]. 
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ALGORITHM 53 

Nru ROOTS OF A COMPLEX NUMBER 

JoHN R. HERNDON 

Stanford Research Institute, Menlo Park, California 


procedure NTHROOT (n, r, u, REAL, UNREAL); value 
n,r,u; integer n; 
realr,u; real array REAL, UNREAL; 
comment This procedure computes the n roots of the equation 
x" = r+ui. The real parts of the roots are stored in the vector 
REAL [_ ]. The imaginary parts are stored in the corresponding 
locations in the vector UNREAL [ ]; 


begin integer nl, n2; real en, th, s, th 1; 
REAL [n] := 0; 
en := 1/n; 
if u=0 then 
begin s := (abs(r)) f en; 
th := 0; 
go to main end; 
if r=0 then 


begin s := (abs(u)) f en; 
th := 1.5707963; 
ifu < 0 then 
th := —th 
go to main end; 
s:= (r X r+u X u) T (en/2); 
th := arctan (u/r); 
main: ifr < 0 then 
th := th + 3.1415926; 
th := en X th; 
thl := 6.2831853 en; 
for n2 := 1 step 1 until n do 
begin REAL [n2]} := s X cos (th); 
UNREAL [n2] := s X sin (th); 
th = th+th 1 end 
end NTHROOT; 


REMARK ON ALGORITHM 53 

Nth ROOTS OF A COMPLEX NUMBER (John R. 
Herndon, Comm. ACM 4, Apr. 1961) 

C. W. Nestor, JR. 

Oak Ridge National Laboratory, Oak Ridge, Tennessee 


A considerable saving of machine time for N 2 3 would result 
from the use of the recursion formulas for the sine and cosine in 
place of an entry into a sine-cosine subroutine in the do loop 
associated with the Nth roots of a complex number. That is, one 
could use 

sin (n + 1)@ = sin n@ cos? + cos né sin? 
cos (n + 1)@ = cos né cosé — sin né sind, 
at the cost of some additional storage. 
We have found this procedure to be very efficient in problems 
dealing with Fourier analysis, as suggested by G. Goerzel in 
chapter 24 of Mathematical Methods for Digital Computers. 
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ALGORITHM 54 

GAMMA FUNCTION FOR RANGE 1 TO 2 

JoHn R. HERNDON 

Stanford Research Institute, Menlo Park, California 


real procedure Q(x); value x; real x, 

comment This procedure computes ['(x) for 1 S x S$ 2. This is 
a reference procedure for the more general gamma function 
procedure. ['(x) = Q(x—1); 


begin Q := (((((((0.035868343 X x — 0.19352782) * x 
+ 0.48219939) X x — 0.75670408) x x 
+ 0.91820686) * x — 0.89705694) x x 
+ 0.98820589) X x — 0.57719165) X x + 1.0 
end Q; 
REMARKS ON: 
ALGORITHM 34 [S14] 
GAMMA FUNCTION 


[M. F. Lipp, Comm. ACM 4 (Feb. 1961), 106] 
ALGORITHM 54 [814] 
GAMMA FUNCTION FOR RANGE I TO 2 

{John R. Herndon, Comm. ACM 4 (Apr. 1961), 180] 
ALGORITHM 80 [814] 
RECIPROCAL GAMMA FUNCTION OF REAL 
ARGUMENT 

[William Holsten, Comm. ACM 5 (Mar. 1962), 166] 
ALGORITHM 221 [814] 
GAMMA FUNCTION 

[Walter Gautschi, Comm. ACM 7 (Mar. 1964), 143] 
ALGORITHM 291 [814] 
LOGARITHM OF GAMMA FUNCTION 

[M. C. Pike and I. D. Hill, Comm. ACM 9 (Sept. 1966), 

684] 
M. C. Pike anv I. D. Hi (Recd. 12 Jan. 1966) 
Medical Research Council’s Statistical Research Unit, 
University College Hospital Medical School, 
London, England 

Algorithms 34 and 54 both use the same Hastings approxima- 


tion, accurate to about 7 decimal places. Of these two, Algorithm 
54 is to be preferred on grounds of speed. 


Algorithm 80 has the following errors: 
(1) RGAM should be in the parameter list of RGR. 
(2) The lines 
if zs = 0 then begin RGR := 0; goto EXIT end 
and 
if x = 1 then begin RGR := 1; goto EXIT end 
should each be followed either by a semicolon or preferably by an 
else. 
(3) The lines 


if x = 1 then begin RGR := 1/y; goto EXIT end 
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and 
ifz < — 1then beginy :=y Xz; goto CC end 
ould each be followed by a semicolon. : 
4) The lines 
BB: if x = —1 then begin RGR := 0; goto EXIT end 
and - 
if z > —1 then begin RGR := RGAM(z):. goto EXIT end 
should be separated either by else or by a semicolon and this 
second line needs terminating with a semicolon. | 
(5) The declarations of integer ¢ and real array B[0:13] in RGAM 
are in the wrong place; they should come immediately after 
begin real 2; 


With these modifications (and the repiacement of the array B 
in RGAM by the obvious nested multiplication) Algorithm 80 ran 
successfully on the ICT Atlas computer with the ICT Atlas 
ALGOL compiler and gave answers correct to 10 significant digits. 


Algorithms 80, 221 and 291 all work to an accuracy of about 10 
decimal places and to evaluate the gamma function it is therefore 
on grounds of speed that a choice should be made between them. 
Algorithms 80 and 221 take virtually the same amount of comput- 
ing time, being twice as fast as 291 atx = 1, but this advantage 
decreases steadily with increasing x so that at x = 7 the speeds are 
about equal and then from this point on 291 is faster—taking only 
about a third of the time at + = 25 and about a tenth of the time 
at x = 78. These timings include taking the exponential of log- 
gamma. ; 

For many applications a ratio of gamma functions is required 
(e.g. binomial coefficients, incomplete beta function ratio) and the 
use of algorithm 291 allows such a ratio to be calculated for much 
larger arguments without overflow difficulties. 
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ALGORITHM 55 

COMPLETE ELLIPTIC INTEGRAL OF THE FIRST 
KIND 

JOHN R. HERNDON 

Stanford Research Institute, Menlo Park, California 


real procedure ELLIPTIC 1(k); value k; real k; 
comment This procedure computes the elliptic integral of the 
first kind K(k, 7/2); 


begin real t; 
t:=1-k xk; 
ELLIPTIC 1 := (((0.032024666 K t + 
0.054555509) X t 
+ 0.097932891) X t + 1.3862944) 
— (((0.010944912 X t + 0.060118519) x t 
+ 0.12475074) x t + 0.5) X log (t) 
end ELLIPTIC 1; 


CERTIFICATION OF ALGORITHM 55 

COMPLETE ELLIPTIC INTEGRAL OF THE FIRST 
KIND [John R. Herndon, Comm. ACM, Apr. 1961] 
and 

CERTIFICATION OF ALGORITHM 149 

COMPLETE ELLIPTIC INTEGRAL [J. N. Merner, 
Comm. ACM, Dee. 1962] 

Henry C. THACHER, JR.* 

Reactor Eng. Div., Argonne National Laboratory, 

Argonne, Ill. 
* Work supported by the U.S. Atomic Energy Commission. 


The bodies of Algorithm 55 and of the second procedure of 
Algorithm 149 were tested on the LGP-30 computer using Sca.p, 
the Dartmouth ‘“‘Loap-AND-Go”’ translator for a substantial sub- 
set of ALGoL 60. The floating-point arithmetic for this translator 
carries 7+ significant digits. 

In addition to modifications required because of the limitations 
of the Scaup subset, the following need correction: 

In Algorithm 55: 

1. The constant 0.054555509 should be 0.054544409. 
2. The function log should be In. 

In procedure ELIP 2 of Algorithm 149, the statement a := c 
should be a := C. 

The parameters of Algorithm 149 are related to the complete 
elliptic integral of the first kind by: K = aXELIP(a, 6) where 
the parameter m = k? = 1 — b/a. 

The maximum approximation error in Algorithm 55 is given by 
Hastings as about 0.610—6. In addition there is the possibility of 
serious cancellation error in forming the complementary param- 
eter { = 1 —k Xk. For k near 1, errors as great as 4 significant 
digits were sustained. In these regions, the complementary 
parameter itself is a far more satisfactory parameter. 

The accuracy obtainable with Algorithm 149 is limited only by 
the arithmetic accuracy and the amount of effort which it is 
desired to expend. Six-figure accuracy was obtained with 5 appli- 
cations of the arithmetic-geometric mean for a = 1000, b = 2, 
and with one application for a = 500, b = 500. 
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Neither algorithm is satisfactory for k = 1. The behavior for 
Algorithm 55 will be governed by the error exit from the logarithm 
procedure. Under these circumstances, Algorithm 149 goes into an 
endless loop. Algorithm 149 may also go into an endless loop of the 
terminating constant (#o—8 in the published algorithm) is too 
small ‘for the arithmetic being used. For the Scaup arithmetic it 
was found necessary to increase this tolerance to 5.00—7. The 
resulting values of the elliptic integrals were, however, accurate 
to within 2 in the 7th significant digit (6th decimal). , 

The relative efficiency of the two algorithms will depend 
strongly on the efficiency of the square-root and logarithm sub- 
routines. With most systems, Algorithm 55 will provide sufficient 
accuracy, and will be more efficient. If a square-root operation or 
a highly efficient square-root subroutine is available, Algorithm 
149 may well be the better method. 
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ALGORITHM 56 

COMPLETE ELLIPTIC INTEGRAL OF THE 
SECOND KIND 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


real procedure ELLIPTIC 2(k); value k; real k: 
comment This procedure computes the elliptic integral of the- 
second kind E(k, 2/2); 
begin real t; 
t:=1-—kxk; 
ELLIPTIC 2 := (((0.040905094 *K t + 
0.085099193) x t 
+ 0.44479204) X t + 1.0 — (((0.01382999 x t 
+ 0.08150224)  t + 0.24969795) X t) X log (t) 
end ELLIPTIC 2; 


CERTIFICATION OF ALGORITHM 56 [821] 
COMPLETE ELLIPTIC INTEGRAL OF THE 
SECOND KIND 
[J. R. Herndon, Comm. ACM 4, (Apr. 1961), 180] 
GERHARD MEIDELL LarssEn (Recd. 9 Aug. 1965) 
Institut fiir Statik und Dynamik der Luft- und Raum- 
fahrtkonstruktionen mit Rechengruppe der Luftfahrt, 
Technische Hochschule, Stuttgart, Germany 


Algorithm 56 was run on a Univac 1107 using the Univac 1107 
ALGoL 60 compiler (dated January 25, 1965). The single-precision 
floating-point arithmetic of this translator carries eight significant 
digits. 

Two syntactical errors were removed from the algorithm: 

1. The line 


ELLIPTIC 2 : 


(((0.040905094 *& t + 
was changed to 


ELLIPTIC 2 : 


((0.040905094 x ¢ + 


2. The function log was changed to ln. 
In addition, the statement 


t:=1-kxX k 


was removed from the algorithm and the complementary parame- 
ter itself used as input to the procedure: 


real procedure ELLIPTIC 2 (t); value ¢; real t; 


to avoid cancellation error for values of k near 1. [While the use 
of ¢ as input parameter is good computationally, the name of the 
procedure is then slightly misleading.—J.G.H.] 

Several values of the complete elliptic integral of the second 
kind were computed for 1 > ¢ > 0. The maximum error was found 
to be about. 710>—7, compared with A. M. Legendre, Tafeln der 
Elliptischen Normalintegrale, Stuttgart, 1931. For ¢ = 0 an error 
exit from the In routine takes place. 
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ALGORITHM 57 

BER OR BEI FUNCTION 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


real procedure BERBEI (r, z); value r, z; realr, z; 
comment This procedure computes ber(z) if r is set equal to 
zero. bei(z) is produced if r equals 1.0; 
begin 
real s, k, ¢, f, t; 
ifr = 0 then 


step 2 until 100 do 


ay 
° 
Le} 
oO 
I 
dS en 


ifs =s+k then 
go to gate; 


s+k end; 
gate: BERBEI := s 
end BERBEI; 


CERTIFICATION OF ALGORITHM 57 

BER OR BE] FUNCTION [J. R. Herndon, Comm. ACM 
4 (Apr. 1961)] 

A. P. Re.pu 

The English Electric Co. Whetstone, England 


Algorithm 57 was translated using the Druce ALGoL compiler. 
No corrections were required, and the results were satisfactory. 


CERTIFICATION OF ALGORITHM 57 

BER OR BEI FUNCTION [John R. Herndon, Comm. 
ACM, Apr. 1961] 

Henry C. THacuer, Jr.* 

Reactor Engineering Div., Argonne National Lab., 
Argonne, IIl. 


* Work supported by the U. S. Atomic Energy Commission. 


The body of Algorithm 57 was tested on the LGP-30 using the 
ALGoL 60 translator developed by the Dartmouth College Com- 
puter Center. No syntactical errors were found. For z = 0.1(0.1)1.0, 
with a 7+ significant decimal arithmetic routine, the program 
gave results with errors less than 5 (and for z = 1(1)5 less than 12) 
in the seventh digit. For large values of z, serious cancellation 
errors may occur. For example, for z = 20, more than 2 decimals 
of significance can be lost in this way. 


57-P 1- 


0 


COLLECTED ALGORITHMS FROM CACM | : 


ALGORITHM 58 

MATRIX INVERSION 

DonaLD CoHEN 

Burroughs Corporation, Pasadena, Calif. 


procedure invert (n) array: (a); 
comment matrix inversion by Gauss-Jordan elimination; 
value n; 
array a; 
begin 
array b,c [l:n]; integer i,j,k, ¢, p; 
integer array z [1:n]; 
for j := 1 step 1 until n do 2{j] := j; 
for i := 1 step 1 until n do begin 
k:=i; y:=afi,il; ¢:=1-—1; 
for] := p step 1 until n do begin 
w := ali,j]; if abs(w) > abs(y) then begin 


integer n; 


p:=i+1, 


k := j; y := w end end; 

for j := 1 step 1 until n do begin 

e{j] ra alj, k}; alj, k] := alj, i]; 

alj, i] := —elj]/y; bij] := ali, jl := ali, jl/y end ; 
ali,iJ:=1/y; j:= fil; 2li]:= fk]; 2{kl:=] ; 


for k := 1 step 1 until f, p step 1 until ndo 
for j := 1 step 1 until ¢, p step 1 until n do 
a(k, j] := alk,i] — bij] xX clkJend; ¢:=0 ; 
f:=¢+1; k:=2[¢]; if ¢ S$ n then begin 
for j := ¢ while k # j do begin 

for i := 1 step 1 until n do begin 


back: 


w := alj,i];  alj,i] := alk,i]; alk,iJ:= wend ; 
go to back end 
end invert. 


CERTIFICATION OF ALGORITHM 58 

MATRIX INVERSION (Donald Cohen, Comm. ACM 4, 
May 1961) 

RicHarD A. CONGER 

Yalem Computer Center, St. Louis University, St. 
Louis, Mo. 


Invert was hand-coded in Fortran for the IBM 1620. The 
following corrections were found necessary: 
The statement ax,j := ax,i — bj X cx should be 


Qx,j := x,j — bj X Ce 
The statement gotoback should be changed to 


1:= Zk 3 Zk i= 2,3 2):= 1; go to back 


After these corrections were made, the program was checked by 
inverting a 6 X 6 matrix and then inverting the result. The second 
result was equal to the original matrix within round-off. 
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CERTIFICATION OF ALGORITHM 58 

MATRIX INVERSION [Donald Cohen, Comm. ACM, 
May, 1961] | 

RIcHARD GEORGE* 

Particle Accelerator Div., 
Argonne, III. 


Argonne National Lab., 


* Work supported by the U.S. Atomic Energy Commission. 


This procedure was programmed in ForTRAN and reduced to 
machine code mechanically. It was run on the Argonne-built com- 
puting machine, Grorce. A floating-point routine was used which 
allows maximum accuracy to 31 bits. 

There are a number of errors of various types: 

(1) There are eight begin’s and only seven end’s. 
(2) The line 


alk, j] := alk, 7] — b[j] X ek] end; 


should be 
alk, j] = alk, j] — bij] X c[k] end; 


(3) The permutation of rows of the inverted matrix and permu- 
tation of elements of the integer array z must be carried out simul- 
taneously. This algorithm fails to do this, and consequently the 
matrix at the time of exit from the procedure is left in a permuted 
condition. 

(4) The algorithm permits the statement 


k := 2]; 


to be executed even though the declarations place an upper limit 
of n on the integer array z, and the test for 1 S n has not yet been 
made. Obviously, Mr. Cohen’s compiling system would allow an 
out-of-bounds array look-up. One could easily incorporate into an 
ALGOL compiler a guard against such illicit array references, and 
therefore the published algorithm might be considered machine 
dependent. 

(5) This algorithm requires 3n? divisions, most of which are un- 
necessary. By inserting the statement 


y := 1.0/y; 


at the proper place, one may accomplish the obvious economy 
of reducing this to only n divisions plus 2n? multiplications. 

(6) If a matrix should be singular (or nearly so), some pivot 
element will be zero (or very small), and a test should be made, 
with provision for a jump to ALARM, a non-local label. 

(7) The identifiers w and y should be declared within this pro- 
cedure, to avoid trouble. 

(8) This algorithm omits calculation of the determinant of the 
matrix. This could be computed with very little extra effort. 

The revised algorithm was then tested on the LGP-30 com- 
puter, using ALGoL-30, a small subset of ALGou. Within the re- 
strictions of this subset, the program worked satisfactorily on test 
matrices. 
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REMARK ON ALGORITHM 58 

MATRIX INVERSION [Donald Cohen, Comm. ACM, 
May, 1961] 

GEORGE STRUBLE 

University of Oregon, Eugene, Oregon 


For the last seven lines, beginning with alk, j] :== alk, 7], substi- 
tute: 
alk, 7] := alk, 3] — b[j] X clk] end; 
l:= 0; 


back: 1 := i+1; 
again: k := e2[l]; 
if k ~ Il then 
begin for i := 1 step 1 until n do 
begin w := all, 7]; 


all, 1] := alk, 2]; 
alk, 7] := w end; 


z(l] := z[k]; 
2{k] := k; 
go to again end; 
else if 1 # n go to back 
end invert 


REMARK ON ALGORITHM 58 
MATRIX INVERSION [D. Cohen, Comm. ACM, 
May 61] 
Peter G. BEHRENZ 
Matematikmaskinnmanden, Box 6131, Stockholm 6, 
Sweden 
tnvert was run on Facit EDB using Facit-Atcot 1. Some 
changes in the procedure had to be made: 
1. y and w had to be declared in the procedure-body as real 


y, Ww 

2. "The last part of the procedure starting with 1 := 0; which 
should interchange the matrix rows did not work correctly, even 
with the corrections proposed by R. A. Conger [Comm. ACM, 
June 62]. We propose the following code: 

for 1 := 1 step 1 until n do begin 

k:=2{l]; for j:= 1 whilek ~ j do begin 


for i := 1 step 1 until n do begin 
wi=alj,t]; ali, t]:= alk, 2]; alk, 1] := wend; 
t:= 2k]; 2lk]:= 2[j]; &:= 2[j]:= 7 end end end inveri 


If the matrix a is singular, the value of the pivot element y 
will once be zero or very nearly zero and division by zero would 
occur in the course of the calculation. It would therefore be 
advantageous to introduce. an’ pmpinnal tolerance parameter 
epstion into the procedure. 

To calculate the determinant of the matrix a it is only necessary 
to put three more statements into the code. With these augmenta- 
tions znvert should read: 


procedure invert (n, a, epsilon, determinant) ; 
value n, epsilon; real epsilon, determinant; 
array a; integer 7; 


begin real y, w; integer 7, j, k, L Dp; 
array b, c{l:n]; imteger array 2[lin]; 
determinant := 1; 

followed by the same code as*before until: 
y := wend end; 
determinant := y X determinant; 
ifk #7 thee iene := —determinant; 


if abs (y) < epsilon then go to singular; 
followed by the same cede as before with the changes mentioned 
in the certification by R. A. Conger [Comm. ACM, June 62] and 


the changes given above. 


in the main program. 
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singular should be a nonlocal label 
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ALGORITHM 59 

ZEROS OF A REAL POLYNOMIAL BY RESULTANT 
PROCEDURE 

EK. H. Baretss and M. A. FisHeRKELLER 

Argonne National Laboratory, Argonne, III. 


procedure RES (n, ¢c, alpha, mu, re, im, rt, gc) ; 
c, alpha ; 
mu 


comment 


value n, 


integer n, alpha ; integer array 


; array c, re, im, rt, ge ; 
RES finds simultaneously all zeros of a polynomial of 
degree n with real coefficients, cj (j = 0,... 


n), where cn 


is the constant term. The real part, re; , and imaginary part, 
im; , of each zero, with corresponding multiplicity, mu; , and 


remainder term, rt;, (i = 1,.. 
nomial with coefficients gc; (j = 0, ... 


. ,; 0), are found and a poly- 
, h), is generated from 


these zeros. Alpha provides an option for local or nonlocal 
selection of M, the number of root-squaring iterations, and 
delta and epsilon, acceptance criteria. If alpha = 1, these 
parameters are assigned locally. If alpha = 2, M, delta and 
epsilon are set equal to the global parameters Mp, deltap, 
and epsilonp, respectively. In cases where zeros may be found 
more than once, the superfluous ones are eliminated by fac- 
torization. The method has been described by E. H. Bareiss 


(J. ACM 7, Oct. 1960, pp. 346-386). 
begin integer M 


U1, U2 ; 


? 


; real delta, epsilon ; switch U := 


go to U [alphal; 


UL: 
U2: 


START: 


SYNTHETIC 
DIV: 


SQUARING 


OPERATION: 


M:=10 ; delta:=0.2 ; epsilon := 10-8 ; 
gotoSTART ; 

M := Mp ; delta := deltap ; epsilon := 
epsilonp ; 

begin integer CT, nu, nuc, beta, m, j, je, k, 
i,p ; Boolean ROOT ; 

real X, Y,GX,rp ; array a, ac [0:n, 0:M], 
R, Re, t [0:n], 


8 [=1:n], ag [—2:n], rh,q,G, F [1:2Xn]_ ; 
switch § := §1,82 ; switehT:=T1,T2 ; 
switch V := V1, V2 ; 
real procedure min (u,v) ; realu,v ; 

min := ifu S vthenuelsev ; 
real procedure SYND (W, Q, 
integerI ; realW,Q ; 

array T ; 
begin 3 [—1] := 0 ; 8 [(0} := T [0] ; for 
m := 1 step 1 until I do 

s [m] := T [m] — Ws [m — 1] — QXs 
[m—2] ; 
if Q = Othen SYND := abs (s[I]) else 

SYND := abs (W/2xs [I — 1] + sf[I]) 
endSYND =; 

CT := beta :=1 ; 
ndoa [j,0]:=clj] ; 
begin integer el ; real h_ ; 
1 step | until M do 

begin for j := 1 step 1 until ndo 
begin h := 0 ; for el := 1 step 1 until 
min (n — j, j) do 

h:= + (—1) fel Xafj— el,m— 1]Xa 
G+el —1] ; 


LT) 3 


for j := 0 step 1 until 


for m := 


RD: 


NO 


Ti: 


RESULTANT: 


T2: 
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alj,m] := (—1) fT j X (afj,m — 1) f 
2+2xXh) endendend ; 
for j} := 0 step 1 until n do R [j] := (—1) Tf 
jXa [j, M — 1] f 2/a {j,M] ; 
j:=0 ; nu:=1 ; 
if (1 — delta < R [jl) A (R [j] S$ 1 + delta) 
then 
begin rp := (a [j,M)/a [j — nu,M]) f (1/(2 f 
MxXnu)) ; 
gotoT [betalend  ,; 
nu:=nu+l =; 
j:=j+1 ; if j = n then go to 8 [beta] 


elsegotoRD ; 
nu:=1 ; goto2 ; 
rh [CT] :=rp ; X :==rp-+epsilonXrp ; 


Y:=X-+epsilon Xrp_; 

for k := Ostep 1 until n dot [k] := abs (e{k]) ; 
F [CT] := SYND (Y,0,n,t) — SYND 
(X,0,n,t) ; 
G [CT] := SYND (rh [CT],0,n,c) ; if 
F [CT] > G [CT] then 


begin ROOT := true ; q [CT] := 0 ; 
CT :=CT+1 ; F{(CT]:=F{[CT — lend ; 
rh [CT] := —rp ; G [CT] := SYND (th 
(CT],0,n,c) ; 

if F (CT] > G [CT] then begin ROOT := 
true ; q [CT] :=0 ; CT := CT +1 ; 
F (CT] := F [CT — l])end ; if nu = 1 then 
goto2 ; 


q(CT]:=rp 2 ; nuc:=nu ; je:=j_ ; 

for j := 0 step 1 until n do 

begin Re [j] := R [j] ; ac [j,M] := a [j,M] 

end ; 

begin real h ,; 

—iin + 1], A [isn], 
r [O:n, O:n], CB [—1:n+1] ; 

b [-1,0] := CB [-1] := CB [n+ 1] :=0 ; 

for j] := Ostep 1 until n do 


array b [—lIin + 1, 


CB {j] := efj] ; b (0,0} := 1 ; for k := 
1 step 1 until n do 
begin b [k,-—1]) := 0 ; for j := 0 step 1 
until k do 
b ({k + 1,j] := b [k,j — 1]}—- q(CT] Xb 
{k—1,j] 5 


b{k+1,k+1):=h:=0 ; forj:= 
n — k step —1 until 0 do 
h :=h + (CB [j]XCB ({k + j] —- CB{j — 1] 
XCB[k+j+1])XqICT] fT @—k-—j) ; 
Alk] :=(-1 f kxXh ; for j := 0 step 
1 until k — I do 

begin r (0,j] :=0 ; 

A {k] X b[k,j].end , 
r ({k,k) := Afk]end ; 
j := Ostep 1 until n do 


r{kjjj:=r(k —1,j)+ 


beta :=2 ; for 


a [j,0] := r [n,j] end ; go to SQUAR- 
INGOPERATION ; 
if (rp/2) fT 22 q [CT] then goto3 ; rh 
[CT] :=rp ; 


G [CT] := SYND (rh [CT], q [CT], n,c) ; 


COLLECTED ALGORITHMS (cont.) 


S2: 


Sl: 


MULT: 


IT: 


V2: 


D: 


if F [CT] > G [CT] then 
begin CT := CT + 1 ; F [CT] := F 
(CT - 1] ; q [CT] := q [CT — 1] end ; 
rh(CT]:=—-rp ; G[CT]:=SYND [rh [CT], 
q(CT], n,c) ; 
if F [CT] > G [CT] then begin CT := CT 
+1 ; F[CT):=F[CT—-1] ; 
q{CT]:=q[CT—1jend ; goto3 ; 
for } := 0 step. 1 until n do begin a {j,M] := 
ac[j,M]_ ; 
R[j]:=Reljlend ; j:=je ; beta:=1 ; 
if ROOT then go to 3 else 

nu:=nuc ; gotol ; 
ag [-2] := ag [-1] := 0 ; ag [0]: 
for ] := 1 step 1 until ndo 
ag(jJ:=0 ; k:=1 ; i:=n 3; m:=1 ; 


It 
— 
~ 


for j := 0 step 1 until n do 

til:=efl ; 
mu [m] := 0 ; p := if q [k] = 0 then 1 
else2 ; 


GX := SYND (rh [k], q [k],i,t) ; if F [k] 
> GX then 
begin for j := 1 step 1 until ndo 
ag [j] := ag [j] — rh [k] X ag [j -— ll +q 
({k] X aglj— 2] ; 
mu {m] := mu [m] +p ; i:=i-p ; 
for |] := O step 1 until ido 
t J] := 8 Uj] ; go-to IT end else if 
mu [m] # 0 then begin 
rt [m] := G [k] ; goto V [p] end else 
goto D ; 
re {mJ :=rh{k] ; im[m]:=0 ; gotoE ; 
re [{m] := rh [{k]/2 ; im [m] := sqrt (q [k] — 
re[m] f 2) ; 
m:=m+1 ; 
k:=k-+1 ; ifks CT Ams nthen goto 
MULT ; 
for j := Ostep 1 until n do ge [{j] := ag [j] end 
end RES 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 60 

ROMBERG INTEGRATION 

F. L. BAvErR 

Gutenberg University, Mainz, Germany 


real procedure rombergintegr (fet, (gr, rgr, ord) ; 
value ‘gr, rgr, ord ; 
real fgr, rgr; integer ord ; real procedure fct ; 
comment rombergintegr is the value of the integral of the 
function fet between the limits gr and rgr, calculated by the 
algorithm of Romberg with an error term of the order 
2Xord+2, ord20 Computation time will roughly be doubled 
when ord is increased by 1; 
begin 
real array t{1 : ord+1]; 
real ¢, u, m ; 
integerf,h, j,n ; 
€ := rgr—fgr ; 
t[1] := (fet(fgr)+fet(rgr))/2 ; 
n:=1 ; 
for h := 1 step 1 until ord do 
begin u := 0 ; 
= €/(2Xn) ; 
for j] := 1 step 2 until 2Xn—1 do 
=ut+fet((gr+jxXm) ; 
tlh+1] := (u/n+t[h])/2_ ; 
fi=1 ; 
for ] := hstep -- 1 until 1 do 
begin f := 4Xf ; 
tli] := t+1]+ ¢G+11—-tB)/¢-1) 
end ,; 
n:=2Xn 
end; 
rombergintegr := t[1|x¢ 
end 


CERTIFICATION OF ALGORITHM 60 

ROMBERG INTEGRATION (F. L. Bauer, 
ACM, June, 1961) 

Henry C. THACHER, JR.* 

Argonne National Laboratory, Argonne, III. 


Comm. 


* Work supported by the U. S. Atomic Energy Commission. 


This procedure was translated to the ACT III compiler lan- 
guage for the Royal Precision LGP-30 computer. This system pro- 
vides 7+ significant decimal digits. The program was used to 
integrate x” between the limits 0.01 and 1.1, and between the 
limits 1.1 and 0.01. The results in Table I were obtained. The 
pole at 0 for negative n affords a test of the reliability of the 
method when the higher derivatives of the integrand are large. 
The agreement between integrations in the forward and backward 
directions is an indication of the effects of round-off error. 

It is apparent that the procedure gives results well within the 
noise level for the positive powers, and that even the effect of a 
closely adjacent singularity for the negative powers can be over- 
come. 

The flexibility of the algorithm would be improved by adding 
to the formal parameters a procedure, check, to decide if sufficient 
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TABLE I. INTEGRATION OF fo.01 adr AND fir x"dz 


nt 0 +12 - +12 -1 
True Value 1.0900000 26555932 .26555982 4. 7004831 
Order 1 1.0899997 .57076812 --.57076842 19.641113 
Order 2 1.0899997  .30614608 --.30614626 10.656923 
Order 5 1.0899991 .26555693 --.26555818  4.9017590 
Order 10. 4 .7002345 

n 1 —5 —5 
True Value —4.7004831 . 25000000 108 —18.166667 108 
Order 1 —19.641125 18.166655 108 — .25000000X 108 
Order 2 —10.656929 8.4777719 X108 —8.4777766 108 
Order 5 .—4.9017805 1.0408634 X10° —1.0408640 x10* 
Order 10 —4.7004402 . 25000715 10° — .25000727 x 108 
Order 12 . 24999291 X 108 — .25001311X 108 


accuracy had been obtained without carrying through the entire 
iteration. A possible form for this procedure would be: 


procedure check (t1, t2, f, ens 
real tl, t2; 
label exit; 
integer f; 
begin if abs ((t2 — t1) X f) /t1 < tolerance A f > minimum order 
then go to exit end. 


The global variables tolerance, which is the maximum relative 
difference between approximations of increasing order, uud the 
minimum acceptable order should be selected by the programmer 
for the exigencies of the problem. A check of this sort is clearly 
not as sound as an a priori estimate of the necessary order, but is 
frequently an acceptable expedient. 

The Romberg quadrature algorithm is analyzed in the follow- 
ing references: 

Romberg, W. Vereinfachte numerische Integration. Det: 
Kongelinge Norske Videnskaber Selskab Forhandlinger 28, 
(1955), 30-36. 

Stiefel, E., and Rutishauser, H. Remarques concernant 
Vintegration numerique. Comptes Rendus Acad. Scil (Paris) 
262, (1961), 1899-1900. 


CERTIFICATION OF ALGORITHM 60 

ROMBERG INTEGRATION (F. L. Bauer, 
ACM, June 1961) 

Karu Heinz BucHNER 

Lurgi Gesellschaft fur Mineraloltechnik m.b.H., Frank- 
furt, Germany 


Comm. 


Since August 1961, the Rombert Integration has been success- 
fully applied in Fortran language to various problems on an 
IBM 1620. Due to its elegant method and the memory saving 
features, the Romberg Integration has succeeded other methods 
in our program library, e.g., the Newton-Cotes integration of 
order 10. 

Reference is made to Stiefel, Numerische Mathermatik (Teubner 
Verlag. Stuttgart). Stiefel discusses in his book various methods 
of numerical integration including the Romberg algorithm. 
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CERTIFICATION OF ALGORITHM 60 

ROMBERG INTEGRATION (F. L. Bauer, 
ACM, June 1961) 

Karu Heinz BUCHNER 

Lurgi Gesellschaft fur Mineraloltechnik m.b.H., Frank- 
furt, Germany 


Comm. 


Since August 1961, the. Rombert Integration has been success- 
fully applied in Fortran language to various problems on an 
IBM 1620. Due to its elegant method and the memory saving 
features, the Romberg Integration has succeeded other methods 
in our program library, e.g., the Newton-Cotes integration of 
order 10. 

Reference is made to Stiefel, Numerische Mathermatik (Teubner 
Verlag. Stuttgart). Stiefel discusses in his book various methods 
of numerical integration including the Romberg algorithm. 


REMARK ON ALGORITHM 60 [D1] 

ROMBERG INTEGRATION [F. L. Bauer, Comm. 
ACM 4 (June 1961) 255; 5 (Mar. 1962), 168; 5 (May 
1962), 281] 7 . 

Henry C. THACHER, Jr.* (Recd. 20 Feb. 1964 and 23 Mar. 
1964) 

Argonne National Laboratory, Argonne, Ill. 

* Work supported by the U.S. Atomic Energy Commission. 


The Romberg integration algorithm has been used with great 
success by many groups [1, 2], and appears to be among the most 
generally reliable quadrature methods available. It is, therefore, 
worth pointing out that it is not entirely foolproof, and that a sig- 
nificant class of integrands exists for which the extrapolated values 
are poorer estimates of the integral than the corresponding 
trapezoidal sums. 

The validity of the Romberg procedure depends upon the possi- 
bility of expanding the error of the trapezoidal rule in powers of 
h?, where h is the stepsize. One expansion of this type is the Euler- 
Maclaurin sum formula. An alternative expression may be ob- 
tained from the Fourier series expansion. The coefficients of h* in 
the Euler Maclaurin formula are proportional to the difference of 
the values of the (2r-+1)-th derivative at the two ends of the range. 
Thus, any integral for which the odd derivatives of the integrand 
either vanish or are equal at the limits will not be improved by 
Romberg extrapolation. Among the common examples of such 
integrals are integrals of periodic functions over a period and 
integrals for which the derivatives vanish at both limits. An exam- 
ple of the last type is the integral approximation to the modified 
Hankel function [3], e#Kp(x) =f e*4-ee% cosh (pt)dt, where L is 
taken so large that the contribution of the integral from L to 
may be neglected. Several other examples are given under the 
heading “Exceptional cases” by Bauer, Rutishauser and Stie- 
fele [7]. This paper is among the most extensive discussions of 
the Romberg method in English. 

The algorithm also fails when the expansion of the error term 
contains other powers of h along with the even ones. Rutishauser 
[4] discusses estimating integrals of the form J¢f(z) dx = 
Ss 0(¢ (x)//x) dx. If such integrals are estimated by the trapezoidal 
rule, assigning the value 0 to f(0), the error may be expressed in 
the form > c:hk® + Wh >, dA. Although the standard Romberg 
extrapolation fails when applied to this sequence of estimates, 
Rutishauser presents a modified procedure which is effective. 

The extrapolation is also invalid when the integrand is discon- 
tinuous, although this exception is trivial from the computational 
standpoint. 
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It has also been puinted out [5, 6) that the Romberg procedure 
may amplify round-off errors. The losses, while significant, do not 
appear prohibitive for most applications. 
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ALGORITHM 61 

PROCEDURES FOR RANGE ARITHMETIC 
ALLAN GIBB* 

University of Alberta, Calgary, Alberta, Canada 


begin 


procedure RANGESUM (a, b, ¢c, d, e, f); 

real a,b,c,d,e,f; 
comment The term ‘‘range number’’ was used by P.S. Dwyer, 
Iinear Computations (Wiley, 1951). Machine procedures for 
range arithmetic were developed about 1958 by Ramon Moore, 
“Automatic Error Analysis in Digital Computation,’’ LMSD 
Report 48421, 28 Jan. 1959, Lockheed Missiles and Space Divi- 
sion, Palo Alto, California, 59 pp. Ifa SxS bande Sy Sd, 
then RANGESUM yields an interval [e, f] such that e S (x + y) 
< f. Because of machine operation (truncation or rounding) the 
machine sums a + c and b + d may not provide safe end-points 
of the output interval. Thus RANGESUM requires a non-local 
real procedure ADJUSTSUM which will compensate for the 
machine arithmetic. The body of ADJUSTSUM will be de- 
pendent upon the type of machine for which it is written and so 
is not given here. (An example, however, appears below.) It 
is assumed that ADJUSTSUM has as parameters real v and w, 
and integer i, and is accompanied by a non-local real procedure 
CORRECTION which gives an upper bound to the magnitude 
of the error involved in the machine representation of a number. 
The output ADJUSTSUM provides the left end-point of the 
output interval of RANGESUM when ADJUSTSUM is called 
with i = —1, and the right end-point when called with i = 1. 
The procedures RANGESUB, RANGEMPY, and RANGEDVD 
provide for the remaining fundamental operations in range 
arithmetic. RANGESQR gives an interval within which the 
square of a range number must lie. RNGSUMC, RNGSUBC, 
RNGMPYC and RNGDVDC provide for range arithmetic with 
complex range arguments, i.e. the real and imaginary parts 
are range numbers; 
begin 

e:= ADJUSTSUM (a,c, —1); 

f := ADJUSTSUM (b, d, 1) 
end RANGESUM; 
procedure RANGESUB (a,b,c, d,e, f); 

real a,b,c,d,e,f; 
comment RANGESUM is a non-local procedure; 
begin 

RANGESUM (a, b, —d, —c, e, f) 
end RANGESUB; 
procedure RANGEMPY (a, b,c, d, e, f); 

real a, b, c, d, e, f; 
comment ADJUSTPROD, which appears at the end of this 
procedure, is analogous to ADJUSTSUM above and is a non- 
local real procedure. MAX and MIN find the maximum and 
minimum of a set of real numbers and are non-local; 
begin 

real v, w; 

if a<0,.\c 2 0then 


1: begin 
vi=ec; ci=a:; at=v; wi=d; d:=b; bi=w 
end 1; 
if a2O then 
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2: begin 
ifc 2 O then 
3: begin 
e:=aXe;f:=bxXd;goto8 
end 3; 
e:=bX ec; 
ifd = Othen 
4: begin 
f:=bxXd; goto8 
end 4; 
f:=aXd; goto8 
5: end 2; 
if b > Othen 
6: begin 
ifd > Othen 
begin 
e:= MIN(a X d,b X ¢); 
f:= MAX(a X ¢, b X d); 
end 6; 
e:=bXe; 
end 5; 
f:=aXe; 
ifd S Othen 
7: begin 
e:=bXd; goto8 
end 7; 
e:=a Xd; 
8: e:= ADJUSTPROD Ce, —1); 
f := ADJUSTPROD (f, 1) 
end RANGEMPY; 
procedure RANGEDVD (a,b,c, d,e, f); 
real a, b, c, d, e, f; 
comment If the range divisor includes zero the program 
exists to a non-local label ‘‘zerodvsr’’. RANGEDVD assumes a 
non-local real procedure ADJUSTQUOT which is analogous 
(possibly identical) to ADJUSTPROD; 
begin 
ife $0 Ad 2 0 then go to zerodvsr, 


ifc < Othen 


go to 8 


f:=aXec; goto8 


1: begin 
ifb > Othen 
2: begin 
e:= b/d; goto3 
end 2; 
e:=b/e; 
3: ifa 2 0 then 
4: begin 
f:= a/c; go to 8 
end 4; 
f:= a/d; go to 8 
end 1; 
ifa < 0 then 
5: begin 
e:=a/e; goto6 
end 5; 
e:= a/d; 
6: if b > 0 then 
7: begin 
{:= b/c; goto8 
end 7; 


f := b/d; 


0 


COLLECTED ALGORITHMS (cont.) 


8: e:= ADJUSTQUOT (e, —1); t := ADJUSTQUOT (f,1) 
end RANGEDVD; 
procedure RANGESQR (a, b, e, f); 
real a, b, e, f; 
comment ADJUSTPROD is a non-local procedure; 
begin 


ifa < 0 then 
1: begin 
if b < 0 then 
2: begin 
e:=bxXb; fi:=axXa; goto3 
end 2; 
e:=0; m:= MAX (-a,b); f:=mxXm; goto3 
end 1; 


e:=aXa; fi:=bxXb; 
3: ADJUSTPROD (e, —1); 
ADJUSTPROD (f, 1) 

end RANGESQR; : 
procedure RNGSUMC (aL, aR, bl, bU, cL, cR, dL, dU, eL, 
eR, fL, fU); 

real aL, aR, bL, bU, cL, cR, dL, dU, eL, eR, fL, fU; 
comment Rangesum is a non-local procedure; 
begin 

RANGESUM (al, aR, ecl., cR, el, eR); 

RANGESUM (bL, bU, dL, dU, fL, fU) 
end RNGSUMC; 
procedure RNGSUBC (aL, aR, bL, bU, cL, cR, dL, dU, eL, 
eR, f{L, fU); 

real aL, aR, bL, bU, cL, cR, dL, dU, eL, eR, fl, fU; 
comment RNGSUMC is a non-local procedure; 
begin 

RNGSUMC (aL, aR, bL, bR, —cR, —cL, —dU, —dL, eL, eR, 

fL, f{U) 
end RNGSUBC; 
procedure RNGMPYC (aL, aR, bL, bU, cl, cR, dL, du, eb, 
eR, fL, fU); 

real aL, aR, bL, bU, cL, cR, dh, dU, eL, eR, fL, £U; 
comment RANGEMPY, RANGESUB, and RANGESUM are 
non-local procedures; 
begin 

real L1, R1, L2, R2, L3, R3, L4, R4; 

RANGEMPY (aL, aR, cL, eR, Ll, R1); 

RANGEMPY (bL, bU, dL, dU, L2, R2); 

RANGESUB (1, Ri, L2, R2, eL, eR); 

RANGEMPY (aL, aR, dL, dU, L3, R3); 

RANGEMPY (bL, bU, cL, cR, L4, R4); 

RANGESUM (13, R3, L4, R4, fL, fU); 
end RNGMPYC; 
procedure RNGDVDC (aL, aR, bL, bU, cL, cR, dL, dU, eL, 
eR, fL, fU); 

real aL, aR, bL, bU, cL, cR, dL, dU, eL, eR, fL, fU; 
comment RNGMPYC, RANGESQR, RANGESUM, and 
RANGEDVD are non-local procedures; 
begin 

real L1, Ri, L2, R2, L3, R3, L4, R4, L5, R5; 

RNGMPYC (aL, aR, bL, bU, cL, cR, —-dU, —dL, Li, R1, L2, 

R2); 

RANGESQR (cL, cR, L3, R3); 

RANGESQR (dL, dU, L4, R4); 

RANGESUM (L3, R3, L4, R4, L5, R5); 

RANGEDVD (LI, R1, L5, R5, eL, eR); 

RANGEDVD (L2, R2, L5, R5, fL, fU) 
end RNGDVDC 


end 
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EXAMPLE 


‘real procedure CORRECTION (p); real p; 

comment CORRECTION and the procedures below are in- 
tended for use with single-precision normalized floating-point 
arithmetic for machines in which the mantissa of a floating-point 
number is expressible to s significant figures, base b. Limitations 
of the machine or requirements of the user will limit the range of 
p to b™ S$ |p| < b®*! for some integers m and n. Appropriate 
integers must replace s, b, m and n below. Signal is a non-local 
label. The procedures of the example would be included in the 
same block as the range procedures above; 


begin 

integer w; 

for w := m step 1 until n do 
1: begin 


if (b Tw S abs (p)) A (abs (p) < b Tf (w+ 1)) then 
2: begin 
CORRECTION := bf (w+l—s); goto exit 
end 2 
end 1; 
go to signal; 
exit: end CORRECTION; 
real procedure ADJUSTSUM (w, v,i); integer i; 
real w, v; 
comment ADJUSTSUM exemplifies a possible procedure for use 
with machines which, when operating in floating point addition, 
simply shift out any lower order digits that may not be used. No 
attempt is made here to examine the possibility that every digit 
that is dropped is zero. CORRECTION is a non-local real pro- 
cedure which gives an upper bound to the magnitude of the error 
involved in the machine representation of a number; 
begin 
real r, cw, Cv, Cr; 
r:=we+v; 
ifw =0 Vv = Othen gotol; 
ew := CORRECTION (w); 
ev := CORRECTION (vy); 
cr := CORRECTION (1); 
if cw = ev A cr S ew then go tol; 
if sign (i X sign (w) X sign (v) X sign (r)) = —1 then goto 1; 
ADJUSTSUM := r+ i X MAX (ew, cv, cr); go to exit; 
1: ADJUSTSUM := r; 
exit: end ADJUSTSUM; 
real procedure ADJUSTPROD (p,i); real p; integer i; 
comment ADJUSTPROD is for machines which truncate when 
lower order digits are dropped. CORRECTION is a non-local real 
procedure; 
begin 
ifp < iS 0 then 
1: begin 
ADJUSTPROD := p; go to out 
end 1; 
ADJUSTPROD := p + i X CORRECTION (p); 
out: end ADJUSTPROD; 
comment Although ordinarily rounded arithmetic is preferable 
to truncated (chopped) arithmetic, for these range procedures 
truncated arithmetic leads to closer bounds than rounding does. 


* These procedures were written and tested in the Burroughs 
220 version of the ALGOL language in the summer of 1960 at 
Stanford University. The typing and editorial work were done 
under Office of Naval Research Contract Nonr-225(37). The author 
wishes to thank Professor George E. Forsythe for encouraging 
this work and for assistance with the syntax of ALGOL 60. 
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ALGORITHM 62 

A SET OF ASSOCIATE LEGENDRE POLYNOMIALS 
OF THE SECOND KIND* 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


comment This procedure places a set of values of Q.™(x) in the 
array Q[ ] for values of n from 0 to nmax for a particular value 
of m and a value of x which is real if ri is 0 and is purely imaginary, 
ix, ortherwise. R[ ] will contain the set of ratios of successive 
values of Q. These ratios may be especially valuable when the 
Qn™(x) of the smallest size is so small as to underflow the machine 
representation (e.g. 10-® if 10°! were the smallest representable 


number). 9.9 X 10® is used to represent infinity. Imaginary 
values of x may not be negative and real values of x may not be 
smaller than 1. 

Values of Qn™(x) may be calculated easily by hypergeometric 
series if x is not too small nor (n — m) too large. Qu™(x) can be 
computed from an appropriate set of values of P,™(x) if x is near 
1.0 or ix is near 0. Loss of significant digits occurs for x as small as 
1.1 if n is larger than 10. Loss of significant digits is a major diffi- 
culty in using finite polynomial representations also if n is larger 
than m. However, QLEG has been tested in regions of x and n 
both large and small; 
veocedure QLEG(m, nmax, x, ri, R,Q); value m, nmax, x, ri; 

real m, nmax, x, ri; real array R, Q; 


begin real t, i, n, q0, 3; 
ni= 20; 
if nmax > 13 then 
n >= nmax -+ 7; 
if ri = 0 then 
begin if m = 0 then 
Q{0}] := 0.5 X log((x + 1)/(x —'1)) 
else 
begin t := —1.0/sqrt(x X x — 1); 
g0:=0; 
Q[0] := 1; 
for i := 1 step 1 until m do 
begin s := (x+x)x(i-—1)Xt 
X Q[0]+ @i-—ixi—2)xq0; 
gO := Qi0); 
Q[0] := s end end; 
if x = 1 then 


Q{0] := 9.9 fT 45; 

R[n + 1} := x — sqrt(x X x — 1); 

for i:=n step —1 until 1 do 
Ri] := G+m)/(G+i+1) X x 
+(m—i-1)xX Rfi+1)); 

go to the end; 

ifm = 0 then 

begin if x < 0.5 then 

Q[0] := arctan(x) — 1.5707963 else 
~ QO] := — arctan(1/x)end else 


begin t := 1/sqrt(x x x + 1); 
gO := 0; 

Q[0] := t; 

for i:=2 step | until m do 


begin s :=| (x + x) X G@— 1) X t X QO] 
+(i +i xX i-— 2) x q0; 
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qd := Q[0]; 
Q{0] := s end end; 
R{n + 1] := x — sqrt(x X x + 1); 
for i:=nstep — 1 until 1 do 
Rf] := G+ m)/(i — m+ 1) X Ri + 1 
—(i+i-tel) X x); 
i:= 1 step 2 until nmax do 
Rfi] := — Riij; 
for i:= 1 step 1 until nmax do 


Qi} >= Qi — 1) x Rf] 


for 
the: 


end QLEG; 


* This procedure was developed in part under the sponsorship 
of the Air Force Cambridge Research Center. 


REMARK ON ALGORITHM 62 

A SET OF ASSOCIATE LEGENDRE POLYNOMIALS 
OF THE SECOND KIND (John R. Herndon, Comm. 
ACM 4 (July, 1961)) 

Joun R. HERNDON 

Stanford Research Institute, Menlo Park, California 


In regard to Algorithm 62 in Communications of the ACM, two 
errors were found: 
The 14th line of the procedure 
for i:= 1 step 1 until m do 
should read 
for i:= 2 step 1 until m do 
The 35th line 
+ (3i — iXi — 2)Xq0 
should read 
+(3i-ixXi— 2) X qd 
The procedure QLEC was developed from the standard recur- 
rence formula 
(n+ m — 1)Qn-2 = (2n — 1)-2-Qhia — (n — m)Qn™. 
Invert and multiply by (n + m — 1)Qh-.. 


Qa ema) 
Qr-2 (Qn —1)-2— (n — mQn/Qr-1’ 
or 


(n +m — 1) 
(Qn —1)-a2—(n — m) Rn” 


mr 
n—l 


Analysis (and testing) shows that, for n large, this infinite con- 
tinued fraction need only be carried to about eight terms for eight- 
digit accuracy if the final term is evaluated with the asymptotic 
value derived by setting 
RP = R,", lim R,™ = x ck V x? = 5] 
N-> 
the minus sign being chosen since in general Qn" < Qr_1. The 
formulas pertaining to purely imaginary parameters follow read- 
ily. The value of 
a+ 1 


1 
O(n) =e — wo 
Q(x) 5 lB. | —j’ 
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while 
Qi (x) = 2-Qo°(r) — 1, 
and 
-1 
Qo'(x) = Va 


Other values are derived using the ratios R,”(x) and/or the re- 


currence formula 


2m — 1)zx 


The derivation of the expression for Qo° (iz) is not trivial and pro- 


J 2 
HY oe] x 1 


ceeds as follows: 


42 
tz — 1 


gt + 4 


ett’ = g%.gib = et cas b +7sin bd. 


i060 = slog. 


Thus 


—22x 
— 3 


tanb = 
an ; 
and 


Qo (ix) = (arctan x — w/2)i. 


22 
a+ 


m—2 


Gee aT mt tin —~m+2)(n+m —2)Qr. 
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ALGORITHM 63 

PARTITION 

C. A. R. Hoare 

Elliott Brothers Ltd., Borehamwood, Hertfordshire, Eng. 


procedure partition (A,M,N,I,J); value M,N; 
array A; integer M,N,I,J; 
comment [and J are output variables, and A is the array (with 
subscript bounds M:N) which is operated upon by this procedure. 
Partition takes the value X of a random element of the array A, 
and rearranges the values of the elements of the array in such a 
way that there exist integers I and J with the following properties: 
MsJ< ISN provided M < N 
AIR] S$ XforMsRsJ 
A[R] = XforJ < R <I 
A[R] 2 XforIS REN 
The procedure uses an integer procedure random (M,N) which 
chooses equiprobably a random integer F between M and N, and 
also a procedure exchange, which exchanges the values of its two 
parameters; 
begin real X; integer F; 
F := random (M,N); 
I:=M; J:=N; 
up: for I := I step 1 until N do 
if X < A [I] then go to down; 


X:= AF]; 


I:=N; 
down: forJ:=J step —1 until M do 
if A[J]<X then go to change; 
J:=M; 
change: if I < J then begin exchange (A[I], A{J]); 
Il:=1+1;J:=J-—-—1; 
go to up 
end 
else if I < F then begin exchange (A[I], A[F]); 
T:=I+1 
end 
else if F< Jthen begin exchange (A[F], A[J]); 
J:=J-1 
end; 
end partition 


CERTIFICATION OF ALGORITHMS 63, 64, 65 

PARTITION, QUICKSORT, FIND [C. A. R. Hoare, 
Comm. ACM, July 1961] 

J. S. HiuMore 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


The body of the procedure find was corrected to read: 
begin integer I/, J; 
if M < N then begin partition (A, M, N, I,J); 
if K s I then find (A, M, J, K) 
else if J = K then find (A, I, N, K) 
end 
end find 
and the trio of procedures was then successfully run using the 
Elliott ALGoL translator on the National-Elliott 803. 
The author’s estimate of }(N—M)1n(N—M) for the number of 


63-P 1- 0 


exchanges required to sort a random set was tound to be correct. 
However, the number of comparisons was generally less than 
2(N—M)in(N—M) even without the modification mentioned 
below. 
The efficiency of the procedure quicksort was increased by. 
changing its body to read: 
begin integer I, J; 
if M < N—1 then begin partition (A, M, N, I, J); 
quicksort (A, M, J); 
quicksort (A, I, N) 
end 
else if N—M = 1 then begin if A[N] < A[M] then 
exchange (A[M], A[N]) 
end 
end quicksort 
This alteration reduced the number of comparisons involved in 
sorting a set of random numbers by 4-5 percent, and the number 
of entries to the procedure partition by 25-30 percent. 


CERTIFICATION OF ALGORITHMS 63, 64 AND 65, 
PARTITION, QUICKSORT, AND FIND, (Comm. ACM, 
July 1961] 

B. RANDELL AND L. J. RussELL 

The English Electric Company Ltd., Whetstone, England 


Algorithms 63, 64, and 65 have been tested using the Pegasus 
Aua@ot 60 Compiler developed at the De Havilland Aircraft Com- 
pany Ltd., Hatfield, England. 

No changes were necessary to Algorithms 63 and 64 (Partition 
and Quicksort) which worked satisfactorily. However, the com- 
ment that Quicksort will sort an array without the need for any 
extra storage space is incorrect, as space is needed for the organi- 
zation of the sequence of recursive procedure activations, or, if 
implemented without using recursive procedures, for storing in- 
formation which records the progress of the partitioning and 
sorting. 

A misprint (‘if’ for ‘if’ on the line starting ‘else if J S K then 
-+-”) was corrected in Algorithm 65 (Find), but it was found that 
in certain cases the sequence of recursive activations of Find 
would not terminate successfully. Since Partition produces as 
output two integers J and J such that elements of the array 
A[M:N] which lie between A[J] and A[J] are in the positions that 
they will occupy when the sorting of the array is completed, Find 
should cease to make further recursive activations of itself if K 
fulfills the condition J < K <I. 

Therefore the conditional statement. in the body of Find was 
changed to read 


if K < J then find (A,M,J/,K) 
else if J S K then find (A,J,N,K) 


With this change the procedure worked satisfactorily. 
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ALGORITHM 64 

QUICKSORT 

C. A. R. Hoare 

Elliott Brothers Ltd., Borehamwood, Hertfordshire, Eng. 


procedure quicksort (A,M,N); value M,N; 
array A; integer M,N; 

comment Quicksort is a very fast and convenient method of 
sorting an array in the random-access store of a computer. The 
entire contents of the store may be sorted, since no extra space is. 
required. The average number of comparisons made is 2}:M—N) In 
(N—M), and the average number of exchanges is one sixth this 
amount. Suitable refinements of this method will be desirable for 
its implementation on any actual computer; 


begin integer I,J; 
if M < N then begin partition (A,M,N,I,J); 
quicksort (A,M,J); 
quicksort (A, I,; N) 
end 
end quicksort 


CERTIFICATION OF ALGORITHMS 63, 64, 65 

PARTITION, QUICKSORT, FIND [C. A. R. Hoare, 
Comm. ACM, July 1961] 

J. S. HituMorE 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


The body of the procedure find was corrected to read: 
begin integer I, J; 
if M < N then hegin partition (A, M,N, I,J); 

if K S I then find (A, M, J, K) 

else if J S K then find (A, I, N, K) 

end 
end find 
and the trio of procedures was then successfully run using the 
Elliott ALcot translator on the National-Elliott 803. 

The author’s estimate of }(N—M)1n(N—JM) for the number of 
exchanges required to sort a random set was found to be correct. 
However, the number of comparisons was generally less than 
2(N—M)1n(N-—M) even without the modification mentioned 
below. 

The efficiency of the procedure quicksort. was increased by 
changing its body to read: 
begin integer I, J; 
if M < N—1 then begin partition (A, M, N, I,J); 

quicksort (A, M, J); 
quicksort (A, I, N) 
end 
else if N—M = 1 then begin if A[N] < A[M] then 
exchange (A[M}, A[N]) 
end 
end quicksort 

This alteration reduced the number of comparisons involved in 
sorting a set of random numbers by 4-5 percent, and the number 
of entries to the procedure partition by 25-30 percent. 
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CERTIFICATION OF ALGORITHMS 63, 64 AND 65, 
PARTITION, QUICKSORT, AND FIND, [Comm. ACM, 
July 1961] 

B. RANDELL AND L. J. RUSSELL 

The English Electric Company Ltd., Whetstone, England 


Algorithms 63, 64, and 65 have been tested using the Pegasus 
Augot 60 Compiler developed at the De Havilland Aireraft Com- 
pany Ltd., Hatfield, England. 

No changes were necessary to Algorithms 63 and 64 (Partition 
and Quicksort) which worked satisfactorily. However, the com- 
ment that Quicksort will sort an array without the need for any 
extra storage space is incorrect, as space is needed for the organi- 
zation of the sequence of recursive procedure activations, or, if 
implemented without using recursive procedures, for storing in- 
formation which records the progress of the partitioning and 
sorting. 

A misprint (‘if’ for ‘if? on the line starting ‘else if J S K then 
.--’) was corrected in Algorithm 65 (Find), but it was found that 
in certain cases the sequence of recursive activations of Find 
would not terminate successfully. Since Partition produces as 
output two integers J and J such that elements of the array 
A(M:N] which lie between A[J] and A[J] are in the positions that 
they will occupy when the sorting of the array is completed, Find 
should cease to make further recursive activations of itself if K 
fulfills the condition J < K <I. 

Therefore the conditional statement in the body of Find was 
changed to read 


if K < J then find (A,M,J/,K) 
else if I S K then find (A,J,N,K) 


‘With this change the procedure worked satisfactorily. 
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ALGORITHM 65 

FIND 

C. A. R. Hoare 

Elliott Brothers Ltd., Borehamwood, Hertfordshire, Eng. 


procedure find (A,M,N,K); value M,N,K; 

array A; integer M,N,K; 
comment Find will assign to A [K] the value which it would 
have if the array A [M:N] had been sorted. The array A will be 
partly sorted, and subsequent entries will be faster than the first; 


begin integer [,J; 
if M < N then begin partition (A, M,N, I, J); 
if KSI then find (A,M,I,K) 
else if JSK then find (A,J,N,K) 
end 
end find 


CERTIFICATION OF ALGORITHMS 683, 64, 65 

PARTITION, QUICKSORT, FIND [C. A. R. Hoare, 
Comm. ACM, July 1961] 

J. S. HIttMoreE 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


The body of the procedure find was corrected to read: 
begin integer I, J; 
if M < N then begin partition (A, M, N, I,J); 

if K 3 I then find (A, M, J, K) 

else if J & K then find (A, 1, N, K) 

end 
end find 
and the trio of procedures was then successfully run using the 
Elliott AuGou translator on the National-Elliott 803. 

The author’s estimate of 4(N—M)1n(N—M) for the number of 
exchanges required to sort a random set was found to be correct. 
However, the number of comparisons was generally less than 
2(N—M)in(N-—M) even without the modification mentioned 
below. 

The efficiency of the procedure quicksort was increased by 
changing its body to read: 
begin integer I, J; 
if M < N—1 then begin partition (A, M, N, I,J); 

quicksort (A, M, J); 
quicksort (A, I, N) 
end 
else if N—M = 1 then begin if A[N] < A[M] then 
exchange (A[M], A[N]) 
end 
end quicksort 

This alteration reduced the number of comparisons involved in 
sorting a set of random numbers by 4-5 percent, and the number 
of entries to the procedure partition by 25-30 percent. 
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CERTIFICATION OF ALGORITHMS 63, 64 AND 65, 
PARTITION, QUICKSORT, AND FIND, [Comm. ACM, 
July 1961] 

B. RANDELL AND L. J. RussEeLu 

The English Electric Company Ltd., Whetstone, England 


Algorithms 63, 64, and 65 have been tested using the Pegasus 
Axaou 60 Compiler developed at the De Havilland Aircraft Com- 
pany Ltd., Hatfield, England. | 

No changes were necessary to Algorithms 63 and 64 (Partition 
and Quicksort) which worked satisfactorily. However, the com- 
ment that Quicksort will sort an array without the need for any 
extra storage space is incorrect, as space is needed for the organi- 
zation of the sequence of recursive procedure activations, or, if 
implemented without using recursive procedures, for storing in- 
formation which records the progress of the partitioning and 
sorting. : 

A misprint (‘if’ for ‘if’? on the line starting ‘else if J S K then 
--+’) was corrected in Algorithm 65 (Find), but it was found that 
in certain cases the sequence of recursive activations of Find 
would not terminate successfully. Since Partition produces as 
output two integers J and I such that elements of the array 
A[M:N] which lie between A[J] and A[J] are in the positions that 
they will occupy when the sorting of the array is completed, Find 
should cease to make further recursive activations of itself if K 
fulfills the condition J < K < I. ; 

Therefore the conditional statement in the body of Find was 
changed to read . 


if K < J then find (A,M,J,K) 
else if I $ K then find (A,1,N,K) 


With this change the procedure worked satisfactorily. 
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ALGORITHM 66 

INVRS 

JoHN CAFFREY 

Director of Research, Palo Alto Unified School District, 
Palo Alto, California 


procedure Invrs (t) size : (n); 
ger n; 
comment Inverts a positive definite symmetric matrix t, of 
order n, by a simplified variant of the square root method. Re- 
places the n(n+1)/2 diagonal and superdiagonal elements of t 
with elements of t™, leaving subdiagonal elements unchanged. 
Advantages: only n temporary storage registers are required, no 
identity matrix is used, no square roots are computed, only n 
divisions are performed, and, as n becomes large, the number of 
multiplications approaches n°/2; 
begin integer i,j, 3; real array vil:n—1]; real y, pivot; 
for s := 0 step | until n—1 do 
begin pivot := 1.0/t{1,1]; 
begin pivot := 1.0/t{1,1]; 
comment If t[i,1] S 0, t is not positive defi- 


value n; real arrayt; inte- 


nite; 
for i:= 2 step 1 until n do v[i—1] := t{l, iJ; 
for i := 1 step 1 until n—1 do 
begin t[i,n] : = y := —vi{i] X pivot; 


for ) := istep 1 until n—1 do 


tli, j] := tli + 1,) +1) + vil x y 


end; 
t{n,n] := —pivot 

end; 
comment At this point, elements of t~! occupy 
the original array space but with signs reversed, 
and the following statements effect a simple re- 
flection; 

for i:= 1 step 1 until n do 

for j := istep 1 until n do t{i,j] := —t[i,j] 


end Invrs 


CERTIFICATION OF ALGORITHM 66 

INVRS (J. Caffrey, Comm. ACMe July 1961) 

B. RanpDELL, C. G. BRoypEn. 

Atomic Power Division, The English Electric Company, 
Whetstone, England. 


INVRS was translated using the Deuce ALGoL Compiler, and 
needed the following correction. 
The repeat of the line, 
begin pivot := 1.0/t[1, 1]; 
was deleted. 
The compiled program, which used a 20 bit mantissa floating 
point notation, was tested using Wilson’s matrix 


5 7 6 5 
7 10° 8 7 
6 8 10 9 
5 7 9 10 


and gave results 


66-P 1- 0 
67.9982 — 40.9991 — 16.9995 9.9997 
—40.9991 24.9995 9.9997 —5.9998 
— 16.9995 9.9997 4.9998 —2.9999 
9.9997 —5.9998 —2.9999 1.9999 


(The output routine completed the symmetric matrix) 


INVRS will in fact invert non-positive symmetric matrices, the 
only restriction appearing to be that the leading minors of the 
matrix must be non-zero. The variable T[1, 1] takes as its succes- 
sive values ratios of the (r + 1)th to the r th leadng minors of the 
matrix, and if it becomes zero the variable ‘pivot’ cannot be com- 
puted. 

The following matrix, for which the successive values of T[1, 1] 


were +2, —2, —1, —0.6, +5 gave results correct to one unit in the 
fifth significant figure. 
2 —3 1 —1 4 
—3 2 —4 3 —2 
1 —4 —3 2 4 
—1 3 2 —2 —3 
4 -2 4 —3 2 


CERTIFICATION OF ALGORITHM 66 

INVRS (J. Caffrey, Comm. ACM, July 1961) 

JOHN CAFFREY 

Palo Alto Unified School District, Palo Alto, California 


INVRS was translated using the Burroughs 220 Algebraic 
Computer (Batcom) at Stanford University, using 8-digit floating- 
point arithmetic. The misprint noted by Randell and Broyden 
(Comm. ACM, Jan. 1962, p. 50) was corrected, and the same 
example (Wilson’s 4 X 4 matrix) was used as a test case. The 
resulting inverse was: 


68.0000 — 41.0000 — 17.0000 10.0000 
25.0000 10.0000 — 6.0000 

5.0000 — 3.0000 

2.0000 


It may also be useful to note that the determinant of the matrix 
may be obtained as the successive product of the pivots. That is, 
if 4; (=T(1, 1)) is the ith pivot of a matrix of order n, 

determinant = []? ¢:. 
For the above input example, 
determinant = 1.0 

Randell and Broyden’s observation concerning the apparent 
limitation of INVRS to positive definite cases is correct: That is, 
any nonsingular real symmetric matrix (positive, indefinite, or 
negative) may be inverted using this algorithm. The original 
INVRS should therefore be modified as follows: 

if pivot = 0 then go to singular; 

Randell and Broyden’s second example (of order 5) was also 

used as a test case, with the resulting inverse: 


— .0000 . 9999 . 0000 0000 . 9999 
1.5333 — .7333 — .1383 . 7999 

— .8666 — 1.0666 — .§999 

— 1.4666 — .1999 

. 2000 


determinant = —14.999999 
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An attempt to invert the inverse of the 4 X 4 segment of the 
Hilbert matrix, as presented by Randell (Comm. ACM, Jan. 
1962, p. 50), yielded the following results: 

.9999 .4999 38333 . 2499 
3333 2499 . 1999 
.1999 . 1666 
. 1428 
determinant = 6048020.6 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 67 

CRAM 

JOHN CAFFREY 

Director of Research, Palo Alto Unified School District, 
Palo Alto, California 


procedure CRAM (n, r, a) Result: (f); value n, r; integer 
n,r; real array a, f; 
comment CRAM stores, via an unspecified input procedure 
READ, the diagonal and superdiagonal elements of a square sym- 
metric matrix e, of order n, as a pseudo-array of dimension 
i:n(n + 1)/2. READ (u) puts one number into u. Elements efi, j] 
are addressable as alc + j], where c = (2n — i)(i — 1)/2 andefi + 1) 
may be found as c[i] + n — i. Since c[1] = 0, it is simpler to develop 
a table of the c{i] by recursion, as shown in the sequence labelled 
‘“‘table’’. Further manipulation of the elements so stored is illus- 
trated by premultiplying a rectangular matrix f, of order n, r, by 
the matrix e, replacing the elements of f with the new values, re- 
quiring a temporary storage array v of dimension 1:n; 
begin integer i, j, k, m; real array v{i:n]; real s; 
integer array c(i:n]; 
table: J:= —n; k:=n-+1; fori:= 1 step | until n do 
begin 
ji=j+k-—i; cli] := j end; 
load: fori:= 1step1 until ndo 
begin for j} := i step 1 until n do READ (v{j]);_ m:= 
eli]; 
for k : = istep 1 until n do ajm + k] := vi{k] end; 
premult: forj:= 1 step 1 until rdo 
begin for i := 1 step 1 until n do 
begin s := 0.0; 
for k := 1 step 1 untilido 
begin m := c[k]; s := s + alm + i] 
Xf{k, j] end; 
for k:= i+ 1 step 1 until n do 
s:=s+a{(m+k] X f{k,jl; vfi]=s 
end; 
for k := 1 step 1 until n do f[k, j] = v{k] 
end 
end CRAM 
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CRAM (J. Caffrey, Comm. ACM 4 (July 1961), 322) 

A. P. ReLPu 

Atomic Power Div., The English Electric Co., Whetstone, 
England 


CRAM was translated using the Deuce ALGoL compiler with 
the following corrections: 
Vii] = S was changed to V[i] := 8S 
f{k,j] = VIk] was changed to flk,j] := VIk] 
It is quicker not to use the table of the Cfi] in the “load” 
sequence and instead use the following sequence: 
load: m:=n X (n+1)/2; 
fori := 1 step until m do READ (afi]); 
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ALGORITHM 68 

AUGMENTATION 

H. G. Rice 

Computer Sciences Corp., Palos Verdes, Calif. 


real procedure Aug(x,y); value x,y; integer x,y; 

comment This algorithm makes use of the implicitly defined re- 
cursive properties of ALGOL procedures to compute the augment 
of x by y, using the basic technique of incrementation by unit 
step size; 

begin Aug := if x = 0 then (if y > x then (Aug(y — 1, x) + 1) 
else y) 

else Aug(x ~— 1, y + 1) end Aug 


CERTIFICATION OF ALGORITHM 68 

AUGMENTATION (H. G. Rice, Comm. ACM, Aug. 
1961) 

L. M. BreEep 

Stanford University, Stanford, Calif. 

AUGMENTATION was transliterated into BALGOL for the 
‘Burroughs 220, and proved successful in a number of test cases. 
However, the following algorithm has exactly the same effect and 
is considerably simpler: 
real procedure Aug(x, y); value x,y; integer x, y; 
begin if x<0 then L: go to L else Aug := x+y end Aug 
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ALGORITHM 69 end of setting one linkage 
CHAIN TRACING end of CHAIN tracing; 

Brian H. Mayou 

Regnecentralen, Gl. Carlsbergvet. 2, Copenhagen. 


procedure CHAIN tracing (iteration counter, number of 
identifiers, number of identifier links, final linkage — 
matrix, couples) ; 
Boolean array final linkage matrix; 
integer array couples; 
integer iteration counter, number of identifiers, number of 
identifier links; 
begin comment This procedure is given a list of pairs of inte- 
gers, the second being related to the first in some way. It finds 
those pairs of integers which are related to each other if the 
relation is transitive. It is supplied with, 
couples a matrix whose bound pairlist is [1:2, 1:number of 
identifier links] where couples [2, i] is related to couples 
{1, i] in some way. 
final linkage matrix a matrix whose bound pair list is 
{[1:number of identifiers, 1:number of identifiers] and into 
which the procedure puts true if the second subscript 
expression is an integer which is related to the integer 
corresponding to the first subscript expression, if. the 
relation is irreflexive then the diagonal entries of this 
matrix are false. 
iteration counter a place for the procedure to put the 
length of the longest chain it finds. CHAIN tracing can be 
applied to any system which can be represented by a Turing 
machine by letting the integers in couples correspond to 
the Turing machine states. Two integers j, k are related if 
there is an input symbol which causes state j to change to 
state k. If the Turing machine always stops whatever the 
sequence of input symbols, then its final linkage matrix 
will have false for all leading diagonal entries; 
integer i, j; 
Boolean array working linkage matrix [1:number of identi- 
fiers, 1:number of identifiers]; 
Boolean procedure PROGRESS; 
begin PROGRESS := false; 
fori := 1 step 1 until number of identifiers 
do for j := 1 step 1 until number of identifiers 
do begin if Working linkage matrix [i, j}] = — Final 
linkage matrix {i, j]] then PROGRESS := true; 
Final linkage matrix {i, j] := Working linkage 
matrix [i, j} 
end of comparison 
end of PROGRESS; 
BEGIN OF PROGRAM: 
for iteration counter := —1, 0, iteration counter + 1 while 
PROGRESS 
do for i := 1 step 1 until number of identifier links 
do for j := 1 step 1 until number of identifiers 
do begin if iteration number = —1 
thenFinal linkage Matrix [couples [1, i], j] 
:= Working linkage Matrix [couples [1, i], j] 
:= couples (2, i] = j 
else Working linkage Matrix {couples [1, i], j] 
:= Working linkage Matrix [couples [1, i], j] 
V Working linkage Matrix {couples [2, i], i]; 
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ALGORITHM 70 
INTERPOLATION BY AITKEN 
CHARLES J. Mirsup 

General Electric Co., Bethesda, Md. 


procedure AITKEN (x,f,n, X,F); real array x, f; 
integer n; real X, F; 
comment If given x),X1,...Xn, n-+1 abscissas and also given 
f(xo), £(x1),...f(xn), n+l functional values, this procedure 
generates a Lagrange polynomial, F(X) of the nth degree so that. 
F(x;) = {(xi). Henee, for any given value X, a functional value 
F(X) is generated. The procedure is good for either equal or 
unequal intervals of the x;. Aitken’s interative scheme is used 
in the generation of F(X). Since the f array is used for tem- 
porary storage, as the calculation proceeds its original values 
are destroyed; 
begin integer i, j, t; 
for j := 0 step 1 until n—1 do 
begin t := j+1 
for i := t step 1 until n do 
ffi] := ((X—x [j]) x f fi] — (X—x fi) X fO))/ 
(xfi] —xfj]) end 
F := f [n] 


end 


CERTIFICATION OF ALGORITHM 70 
INTERPOLATION BY AITKEN [C. J. Mifsud, Comm. 
ACM 4 (Nov. 1961)] 

A. P. Repu 

The English Electric Co., Whetstone, England 


Algorithm 70 was translated using the Deucr ALGoL compiler 
and gave satisfactory results after semicolons had been added to 


t:= j+1 to make it t := j+1; 
and (xfi]—x[j]) end to make it (x[i]—x{j]) end; 


The identifier ¢ can be eliminated and the algorithm shortened 
by the following changes: 
Replace begin integer i, j, t; by begin integer i, j; 
Replace t := j+1; by fori := j+1 step 1 until 
for i := t step 1 until n do 
n do 
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ALGORITHM 71 

PERMUTATION 

R. R. Coveyou anp J. G. SULLIVAN 

Oak Ridge National Laboratory, Oak Ridge, Tenn. 


procedure PERMUTATION (I, P, N); 

value I, N; integer N; integer array P; boolean IJ; 

comment This procedure produces all permutations of the 
integers from 0 thru N. Upon entry with I = false the pro- 
cedure initializes itself producing no permutation. Upon each 
successive entry into the procedure with I = true a new 
permutation is stored in P[0] thru P[N]. When the process has 
been exhausted a sentinel is set: 


Po] : —1, 
N > 0; 
begin 

integer i; own integer array x(0:N]; 

if = I then 

begin for i := 0 step 1 until N—1 do xfi]:=0; x[N]:= —1; 
go to E end; 

for i := N step —1 until 0 do begin if x[i]+i then go to A; 
xfi] := 0 end; 

P[0] := —1; goto E; 


A: xf{i] := xfi]+1; PO] := 0; 
for i := 1 ‘step 1 until N do 
begin Pf{i] := P[i—xli]]; P{i—xf{i]] := i end; 
E: end PERMUTATION 


CERTIFICATION OF ALGORITHM 71 

PERMUTATION (R. R. Coveyou and J. G. Sullivan, 
Comm. ACM, Nov. 1961) 

P. J. Brown 

University of North Carolina, Chapel Hill, N. C. 


PERMUTATION was transliterated into GAT for the Unr- 
vac 1105 and successfully run for a number of cases. 
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PERMUTATION (R. R. Coveyou and J. G. Sullivan, 
Comm. ACM, Nov. 1961) 

J. E. L. Peck anp G. F. Scorack 

University of Alberta, Calgary, Alberta, Canada 


PERMUTATION was translated into FortTRAN for the IBM 
1620 and it performed satisfactorily. The own integer array 
x(O:n] may be shortened to x[1:n], provided corresponding cor- 
rections are made in the first two for statements. 

However, PERMUTE (Algorithm 86) is superior to PERMU 
TATION in two respects. 

(1) PERMUTATION, using storage of order 2n, is designed to 
permute the specific vector 0, 1, 2,---, n — 1 rather than an 
arbitrary vector. Thus storage of order 3n is required to permute 
an arbitrary vector. PERMUTE, in contrast, only needs storage 
of order 2n to permute an arbitrary vector. 

(2) PERMUTE is built up from cyclic permutations. The 
number of permutations actually executed internally (the re- 
dundant ones are suppressed) by PERMUTE is asymptotic to 
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(e — 1)n! rather than n!. In spite of this, PERMUTE is dis- 
tinctly faster (1316 against 2823 seconds for n = 8) than PERMU- 
TATION. If ty is the time taken for all permutations of a vector 
with n components, and if rn = tn/ntn-1, then one would expect 
rn to be close to 1. Experiment with small values of n gave the 
following results for rp . 


n 6 7 8 
. PERMUTE 0.96 0.99 1.00 
PERMUTATION 1.10 1.13 1.12 


Is there yet a faster way to do it? 

See also: C. Tompkins, ‘(Machine Attacks on Problems whose 
Variables are Permutations’’, Proceedings of Symposia in Applied 
Mathematics, Vol. VI: Numerical Analysis (N. Y., McGraw-Hill, 
1956). 
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PERMUTATION [R. R. Coveyou and J. G. Sullivan, 
Comm. ACM, Nov. 1961] 

J. S. HittMore 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


The algorithm was successfully run using the Elliott ALGou 
translator on the National-Elliott 803. The integer array x was 
made a parameter of the procedure in order to avoid having an 
own array with variable bounds. 
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ALGORITHM 72 

COMPOSITION GENERATOR 

L. HELLERMAN AND 8S. OGDEN 

IBM-Product Development Laboratory, Poughkeepsie, 
N. Y. 


procedure comp (c, k); value k; integer array c; 
integer k; 
comment Given ak-part composition c of the positive integer n, 
comp generates a consequent composition if there is one. If 
comp operates on each consequent composition after it is found, 
all compositions will be generated, provided that 1, 1,..., 1, 
n—k-+1 is the initial c. If c is of the form n—k+1,1,1,...,1, 
there is no consequent, and c will be replaced by a k vector of 
0’s. Reference: John Riordan, An Introduction to Combi- 
natorial Analysis, John Wiley and Sons, Inc., New York, 1958, 
Chapter 6; 
begin integer j;_ integer array d [(1:k]; 
if k = 1 then go to last; 
for j := 1 step 1 until k do d {j] := ¢ {j] — 1; 
test: if d{j]>0 then go to set; 
j := j-1; 
go to ifj = 1 then last else test; 
set: d [j] := 0; 
dij-U:=d—1 +1, 
d [k] := ¢ fj] — 2; 
for j := 1 step 1 until k doc [j}] := dj] +1; 
go to exit; 
last: for j := 1 step 1 until k doc {j] := 0; 
exit: end comp 


CERTIFICATION OF ALGORITHM 72 

COMPOSITION GENERATOR [L. Hellerman and S. 
Ogden, Comm. AC'M, Nov. 1961] 

D. M. CoLiison 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


After 
for j := 1 step 1 until k do d[j] := c[j]—1; 
the statement 
j:=k; 
should be inserted (see ALGoL 60 report, para 4.6.5). With this 
alteration, the algorithm was successfully run using the Elliott 
ALGOL translator on the National-Elliott 803. 
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ALGORITHM 73 

INCOMPLETE ELLIPTIC INTEGRALS 

Davin K. JEFFERSON 

U. 8. Naval Weapons Laboratory, Dahlgren, Virginia 


procedure ellint (k, phi, E, F); 
value k, phi; 
real phi, F, k, E; 
comment ellint computes the value of the incomplete elliptic 
integrals of the first and second kinds, F (phi, k) and E(phi, k), 
where phi is in radians. If | k | > 1 or | phi | > 7/2, E and F 
will be set equal to 100,000,000, otherwise they will contain the 
computed integrals. For the formulation of this procedure, see 
DiDonato, A. R., and Hershey, A. V., ‘“New Formulae for 
Computing Incomplete Elliptic Integrals of the First and 
Second Kind’’, J. ACM 6, 4 (Oct. 1959); 
begin real kp, sinphi, n, cosphi; 
real array H [1:2], A [1:2], sigma [1:4], L 
N [1:2], T [1:2], del [1:4]; 
sigma [1] := sigma [2] := sigma [3] := sigma [4] := 0; 
H [1] := 
n:=0Q; 
sinphi := sin(phi); 
if abs (k X sinphi) < tanh (1) then go to small else if abs (k) < 
1 A abs(phi) < 7/2 then go to large; 
E := F := 100000000; 
go to stop; — 
small: A [1] := phi; 
step 1: n:=n-+1; 
cosphi := cos (phi); 
E:= (2X n-1)/2XN); 
H [2] := EX k?T2 x H {1J; 
A [2] := E x A [1] — sinphi f (2 * n—1) X cosphi /(2 X n); 
del [1] := H [2] * A [2]; 
del [2] := —k?2 x H [i] x A [2] /(2 X n); 
sigma [1] sigma [1] + del [1]; 
sigma [2] sigma [2] + del [2]; 
H [1] := H [2]; . 
A [1] := A [2]; 
if abs ((sigma [1] + del [1]) — sigma [1]) > 0 /A phi X sinphi 
T (2X n) > A [2] then go to step 1; 
F := phi + sigma [1]; 
E := phi + sigma [2]; 
go to stop; 
large: kp := sqrt (I1—kT 2); 
A [1] := 1; 
L [1] := M [1] := N [1] := 0; 
step 2: n := n+]; 
E := (2X n—1) /(2 X n); 
F := abs (k) X sqrt (i1-—sinphi 72) X (1—kf2 X sinphi 
72) T (2 X n—1) /(2 X n)); 
H [2] := E X H (1); 
A (2) := ET2 X kpf2 X A (1); 
L [2] := L {lj +:1/(m X 2 X n—-1)); 
M [2] := (M [i] — F X H [2]) & ((2 K n+1) /(2 X n+2)) T2 X 
kp f 2; 


[1:2], M [1:2], 
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N [2] := (N[l] -F X H[1]) X EX (2x n+1) X kpT2/(2 xX 
n+2); 

del [1] := M [2] — A [2] X L [2]; 

del [2] := N [2] - EX kpf2xX Afi) X L [2] + kpt2 x A [1] 
/(2 Xn) 72); 

del [3] := A [2]; 


del [4] := (2 X n+1) X A [2] /(2 X n+2); 
sigma [1] := sigma [1] + del [1]; 

sigma [2] := sigma [2] + del [2]; 

sigma [3] := sigma [3] + del (3); 

sigma [4] := sigma [4] + del [4]; 

H [l} := H [2]; 

A [1] := A [2]; 

L [i] := L [2]; 

M [i] := M [2]; 

N [1] := N [2]; 


if abs ((sigma [1] + del {1]) — sigma [1]) > 0 then go to step 2; 
T [i] := In (4/(sqrt (1 — kf 2 X sinphi 7 2) + abs (k) X sqrt(1— 
sinphi f 2))); 
T [2] := abs (k) X sqrt ((l1—sinphi 72) /(i—k f 2 X sinphi f 2)); 
F := T [1] X (1+sigma [3]) + T [2] x In (.5 + .5 X abs (k X 
a) + sigma [1]; 
= (.5 + sigma [4]) X kpt2 xX T [1] + 1--T [2] X (1—abs 
oe X sinphi)) + sigma {2}; 


stop: end 
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INCOMPLETE ELLIPTIC INTEGRALS (David K. 
Jefferson, Comm. ACM, Dec. 1961) 

Dean C. KrieBeL 

U. 8. Naval Weapons Laboratory, Dahlgren, Virginia 


This algorithm was originally coded in Norc machine language 
and K. Pearson’s incomplete elliptic integral tables of the first 
and second kind generated. (See DiDonato, A. R., and Hershey, 
A. V., “New Formulae for Computing Incomplete Elliptic Inte- 
grals of the First and Second Kind”, J.ACM 6, 4 (Oct. 1959)). 

The algorithm was coded for the MAD Compiler exactly as. 
written in ALGOL and run on an IBM 7090. Forty cases were com- 
puted with K ranging from 0° to 90° and PHI ranging from 0° to 
90°. The results contained eight significant digits which agreed 
with the DiDonato and Hershey tables to within 0 to 2 units in the 
8th digit. (This may be attributed to the decimal to binary, binary 
to decimal input-output conversion used with a binary computer 
as compared to straight decimal computation on the Norc.) 


CERTIFICATION OF ALGORITHM 73 
INCOMPLETE ELLIPTIC INTEGRALS [David K. 

Jefferson, Comm. ACM 4, Dec. 1961] 
NoEe.uE A. Meyer 
E. I. du Pont de Nemours & Co., Wilmington, Del. 

Ellint was hand-coded in Fortran for the IBM 7070. The follow- 
ing corrections were made 

The statement 

= (2Xn—1)/(2XN); 

should be 
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Ee:= (2Xn—-1)/(2Xn); 
The statement 
F := abs(k) X sqrt(1--sinphi 2) X (1—k T 2X sinphi f 2) ft 
((2Xn—-1)/(2Xn)); 
should be 
F := (abs(k)X sgri(1—sinphi f 2) x 
(l—k T 2X sinphi 72) tT (n—.5))/(2Xn) 
The statement 
L{2] := Lil] + 1/(n*2xXn—1)); 
should be 
L[2] := Lit] + (/(mx (2xn—1)); 
In order to accommodate negative ¢ the following changes were 
made: 
The statement 
if abs((sigma(1]+del[1]) —sigma[1]) > 0 A phi X sinphi 7 
(2Xn) > A[2] then go to step 1; 
was changed to 
if abs((stgma[1]+del[1]) —sigma{1]) >O0Aabs(phiX sinphi Tt (2Xn)) 
> abs(A[2]) then go to step 1; 
Also the following was inserted before the last statement 


(stop: end) 
if phi < 0 then go to wait else go to stop; 
wait: F i= —F; 
E := -&E; 


The revised algorithm yielded satisfactory answers when com- 
pared with the DiDonato and Hershey tables. Differences occurred 
in the eighth significant digit as shown in the following difference 
tables. 


DIFFERENCE TABLES 


F-TABLE 
6 (in degrees) 


(in Paar 0 30 60 90 
0 0. 0. 0. 0. 
30 —-1 xX lu*& ~—1 xX 10°* -1 xX 10° -3 x 10-8 
60 1 & 10-8 1x 1078 2X 10% —3 X 1078 
90 0. 2X 108 6 X 10-8 0 

E-TABLE 

0 0. 0. 0. 0. 
30 -1 x 10°? -1 x 10°§ —1 x 10-8 -1 & 10°83 
60 1 X 1078 1X 10°? -—7 X 10°83 3 X 10°38 
90 0. 0 1 xX 1078 0. 
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INCOMPLETE ELLIPTIC INTEGRALS [David K 
Jefferson, Comm. ACM Dec. 1961] 

R. P. van pe Ret 

Mathematical Centre, Amsterdam 


The algorithm contained three misprints: 
The 26th line of the procedure 
E:= (2X n—-1)/(2 XN); 
should read 
E:= (2X n-1)/(2 X n); 
The 46th line of the procedure 
T 2) T (2 X n—-1)/(2 X n)); 
should read 
T 2) T (2 X n—1)/2)/(2 X n); 
The 49th line of the procedure 
L (2) := L [4] + 1/(n X 2X n—1)); 
should read 
£[2]}:= 2 [1] + /™ X (2X n—-])); 
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The program was run on the X1 computer of the Mathematical 
Centre. For phi = 45°, k = sin(10°(10°)180°), HE and F were calcu- 
lated. The result contained 12 significant digits. 

Comparison with a 12-decimal table of Legendre-Emde (1931) 
showed that the 12th digit was affected with an error, at most 
4 units large. After about 10 minutes of calculation (i.e. more 
than 100 cycles) no results were obtained for k = sin 89°, phi = 1° 
and the calculation was discontinued. 

REMARKS. As phi is unchanged during the calculation, we 
placed the statement cos phi : = cos (phi) in the beginning of the 
program, to be certain that the cosine was not calculated 30 or 
more times. Moreover, in the expression for T[1] and T[2], sqri 
(1-stn phi 7 2) was replaced by cos phi, so that loss of significant 


figures does not occur. 
The expression 2 X » was changed in a new variable, to 


obtain a more rapid program. 


REMARK ON ALGORITHM 73 
INCOMPLETE ELLIPTIC INTEGRALS [David K. 
Jefferson, Comm. ACM (Dec. 1961)] 
Davin K. JEFFERSON 
U. 5. Naval Weapons Laboratory, Dahlgren, Virginia 
In regard to Algorithm 73, two errors were found: 
The 34th line of the procedure 
F := abs(k) X sqrt (1—sinphi ft 2) 
xX (l—k T 2X sinphi T 2) T ((2 & m—1)/(2 X n)); 


should read 
F := abs(k) X sqrt (—sinphi fT 2) 
xX d—-k f 2X sinphi T 2) T (2 n—1)/2)/(2 Xn); 
The 37th line 
L{2} := Lil] + 1/(m X 2 & n—-1)); 
should read 
L[2} := Lil] + 1/(n X (2 XK n—1)); 


In addition, efficiency is improved by interchanging lines 13 
and 14: 
Step 1: n:= n+1; 
cosphi := cos(pht); 
can be replaced by 
cosphi:=cos (phi) ; 
Step1: n:=n+1; 
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ALGORITHM 74 

CURVE FITTING WITH CONSTRAINTS 
J. E. L. Peck, 

University of Alberta, Calgary, Alberta, Canada 


procedure Curve fitting (k,a,b,m,x,y,w,n,alpha,beta,s,sgmsq,x0, 
gamma,c,z,r) ; 
comment This procedure finds, by the method of least squares, 
the polynomial of degree n, k < n < k+m, whose graph con- 
tains (a1, b:),--+, (axbx) and approximates (xi, yi), °*:, 
(Xm, Ym), Where w; is the weight attached to the point (xi, yi). 
The details will be found in the reference cited below, where a 
similar notation is used. A nonlocal label “‘error’’ is assumed; 
value a, xX, y, Ww; integer k,m,n,r; real x0, gamma; array 
a, b, x, y, W, alpha, beta, s, sgmsq, ¢, z; 
begin integerii,,j; array wl[{i:k]; real p, f, lambda; 
comment We sball first define several procedures to be used 
in the main program, which begins at the label START; 


procedure Evalue (x, nu); 
comment This procedure evaluates f = sopo + sipi + °°: + 
SyPy, Where pi(x) = 0, po(x) = 1, Bo = O and piai(x) 
= (x — a;)pi(x) — Bipin(x), i =0,1,--- ,»—1. The value of 
p»(x) remains in p; 
real x; integer nu; 
begin real p0, temp; integeri; p0:=0; p:=1; f:= s(0]; 
for i := 0 step 1 until nu—1 do 
begin temp := p; 
p := (x—alphafi]) X p—beta[i] < p0; 
pO := temp; f:=f+p  sfi+l) endi 
end Evalue; 


procedure Coda (n, ¢); 
comment This procedure finds the e’s when cp + cix + +--+ 
EnX™ = SoPo(X) + +++ - BaPa(X); 
imteger n; array c; 
begin integer i,r; real t1,t2; array pm,p[0:n]; 
for r := 1 step 1 until n do 
e[r] := pmlr] := p[r] := 0; 
pm[0] := 0; pl0} := 1; c[0) := sd]; 
for i := 0 step 1 until n—1 do 
begin t2 := 0; 
for r := 0 step 1 until i+1 do 
begin ti := (t2—alpha[i]-x p[r]—beta[i] < pm[r})/lambda; 
+2 := pm[r] := p[r];_ p{r] := tl; 
c[r] := cfr] + tl X sfi+lJend r 
end i 
end Coda; 


procedure GEFYT (n,n0,x,y,w,m); 

comment This is the heart of the main program. It computes 
the ai,8;,81,0;7, using the method of orthogonal polynomials, as 
described in the reference; 
integer n,n0,m; array X,y,w; 
begin real dsq,wpp,wpp0,wxpp,wyp,temp; 

integer i,j,freedom; array p,p0(1:m]; boolean exact; 

if n—n6 > m V n < n0 then go to error; 

beta(n0] := dsq := wpp := 0; exact := n—n0 > m—1; 

for j := 1 step 1 until m do 
begin p{j] := 1; pO[j]:=0; wpp := wpp + wij]; 
if — exact then dsq := dsq + w[j] X y[j] X y[j] end initialise; 
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for 1 := nU step 1 until n do 
begin freedom := m—1—(i—n0); wyp :=.wxpp := 0; 
for } := 1 step 1 until m do 
begin temp := wij] X pfj]; 
if i < n then wxpp := wxpp + temp X x{j] < pfj]; 
if freedom > 0 then wyp := wyp + temp X y[j] end j; 
if freedom > 0 then s[i] := wyp/wpp; 
if — exact then begin dsq := dsq — s[i] X s[i] * wpp; 
sgmsqli] := dsq/freedom end if; 
if i < n then begin alphal[i] := wxpp/wpp; wpp0 := wpp; 
wpp := 0; 
for j} := 1 step 1 until m do 
begin temp := (x{j]—alphali]) X pl[j] — “etafi] x pO[j]; 
wpp := wpp + wi{j] X temp X temp; 
po[j] := pljl; pj] := temp end j; 
betafi+1] := wpp/wpp0 end if 
end i 
end GEFYT; 


START: forj := 1 step 1 until k do 

begin wl1[j] := 1; a[j] = (alj]—x0)/gamma end j; 

GEFYT (k,0,a,b,w1,k); 

comment This finds the polynomial of degree k—1 whose graph 
contains (a1,b:),-+-,(az,b,;) supplying the a;,6i,8i, 0< i < k; 
begin real rho; rho := 0; 

for ] := 1 step 1 until m do 
begin rho := rho + wij]; 
x{j] := (x{j] — x0)/gamma end j;_ rho := m/rho; 

comment The factor p is used to normalize the weights. We shall 
now put s, = 0 in order to evaluate px(x) and the polynomial of 
degree k—1 simultaneously; 

s{k] := 0; : 

for j := 1 step 1 until m do 
begin Evalue (x{j],k); 
if p = 0 then go to error; 
yli] := (yfi] — f)/p; 
wij] := wij] X p X p X rho end j 

end rho; 

comment We have now normalized the weights and adjusted 
the weights and ordinates ready for the least squares approxi- 
mation; 

GEFYT (n,k,x,y,w,m); 

comment The coefficients aj,8i;, 0<i<n,andsi, O<Ci<n 
are now ready. The polynomial may be evaluated for x = 21,22, 
-++,Zr, but the variable must be adjusted first. Note that we 
may evaluate the best polynomial of lower degree by decreas- 
ing n; 
begin real x; 

for j := 1 step 1 until r do 
begin x := (z[j]—x0)/gamma,; 
Evalue (x,n); comment the values of z; and f should now be 

printed; end j; 

comment We may now adjust the coefficients for scale and then 
find the coefficients of the power series cy + cix + °°: + ¢pxX” = 
SoPo(X) + -°* + SnPn(X); 

for i := 0 step 1 until n—1 do 
begin alpha[i] := alpha[i] X gamma + x0; 
betal[i] := betafi] X gamma endi; lambda := gamma; 

Coda (n,c); 

comment We may now re-evaluate the polynomial from the 
power series; 

for | := 1 step 1 until r do 
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begin x := z[j]; f := e[n]; 
for i := n—1 step —1 until 0 do 
f:= fx x + efi]; 
comment the values of x and f should now be printed; end j 
end x 
ena Curve fitting 


Reverence: Pecx, J. E. L. Polynomial curve fitting with 
constraint, Soc. Indust. Appl. Math. Rev. (1961). 


CERTIFICATION OF ALGORITHM 74 

CURVE FITTING WITH CONSTRAINTS [J F. 
Peck, Comm. ACM, Jan. 62] 

Kazuo Isopa 

Japan Atomic Energy Research Institute, Tokai, Ibaraki, 
Japan 


Algorithm 74 was hand-compiled into SOAP IIa for the IBM 
650 and run successfully with no corrections except the case in 
which the origin (0, 0) are given as both a constraint and a sample. 
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ALGORITHM 75 

FACTORS 

J. EK. L. Peck, 

University of Alberta, Calgary, Alberta, Canada 


procedure factors (n,a,u,v,r,¢); 
comment This procedure finds all the rational linear factors of 
the polynomial aox® + aix™™! + --+ -+ anix + an, with integral 
coefficients. An absolute value procedure abs is assumed ; 
value n,a; integer r,n,c; integer array 4,U,Vv; 
begin comment We find whether p divides a), 1< p< |ao| and 
q divides an, 0 < q < |a,|. If this is the case we try (px + q); 
integer p,q,a0,an; 
xr :=0; ¢@:=1; comment r will be the number of linear factors 
and c the common constant factor; 
TRY AGAIN: a0 := a0]; an := a[n]; 
for p := 1 step 1 until abs(a0) do 
begin if (a0 + p) X p = a0 then 
begin comment p divides 4»; 
for q := 0 step 1 until abs(an) do 
begin if q = 0 V (an + q) X q = an then 
begin comment q divides a, (or q = 0). If p = q we 
may have a common constant factor, therefore; if q 
>1Ap =1 then 
begin integer j; 
for ] := 1 step 1 until n—1 do 
if (alj] + q) X q ¥ alj] then go to NO CONSTANT; 
for j := 0 step 1 until n do 
alj] := alj]/q; 
¢c:=e¢Xq; goto TRY AGAIN 
end the search for a common constant factor; 
NO CONSTANT: 
begin comment try (px — q) as a factor; 
integer f,g,i; f := a0; g:=1; 
comment we try x = q/p; 
for i := 1 step 1 until n do 
begin g:=gx<p; f:=f{xXq+ali] Xe 
end evaluation; 


iff = 0 then 
begin comment _ we have found the factor (px — q); 
r:=r+1; ulr] := p; v{r] :=q; 


comment there are now r linear factors; 
begin comment we divide by (px — q); 
integer i,t; t := 0; 
for i := 0 step | until n do 


begin afi] := t := (ali] + t)/p; t:=tXq 
end i; 
n:i=n-—1 


end reduction of polynomial. Therefore; 

go to if n = 0 then REDUCED else TRY AGAIN 
erid discovery of px — q as a factor. But 

if we got this far it was not a factor so try px + q; 

q:= —q; if q < 0 then go to NO CONSTANT 

end trial of px + q, 

end q divides a, and 
end of q loop. 
end p divides ao, also 
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end p loop, which means; 


REDUCED: ifn = 0 then 
begin c := c X a0; a0 := 1 
end if n = 0 


end factors procedure. There are now r (r > 0) rational linear 
factors (uix — vi), 1<i<yr, and the reduced polynomial of 
reduced degree n replaces the original. The common constant 
factor is c. Acknowledgments to Clay Perry. 


CERTIFICATION OF ALGORITHM 75 
FACTORS [J. E. L. Peck, Comm. ACM 5 (Jan. 1962)] 
A. P. REevpH 

The English Electric Co., Whetstone, England 


Algorithm 75 was translated using the Drucz ALGoL compiler 
and gave satisfactory results after the following corrections had 
been made: 

begin if q=0\V (an+q)Xq=an then 
begin if g>1Ap=1 then 
was changed to 
begin if qS1 then go to NO CONSTANT; 
if (an+q)xXq=an then 
begin if p=q then 


begin c := cXa0; a0 := 1 

end vee 
was changed to 

‘begin c := cXa(0]; 

end 


a[0] := 1; 


There are now r (r>0) rational linear factors (u; x~vi), 
1<i<r, 
was changed to 
If r>0 there are now r rational linear factors (u;ix—vi), 1SiSyr, 


CERTIFICATION OF ALGORITHM 75 

FACTORS [J. E. L. Peck, Comm. ACM, Jan. 1962] 

J. S. HitumMore 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 


The following changes had to be made to the algorithm: 
(1) For ifg>1Ap=1 then 
put ifqg>1Ap = qthen 
begin c := c X a0; a0 := 1 end 
put begin c := c X a[0}; a[0] := 1 end 
if q = OV (an + q) X g = an then 
put if (if g = 0 then true else (an + g) X gq = an) then 
This change is necessary to ensure that the term (an + q) is not 
evaluated when g = 0. 
The algorithm, thus modified, was successfully run using the 
Elliott ALGou translator on the National-Elliott 803. 
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To return to the state (p=1, =U) after every factor or constant 
is found is inefficient. This can be avoided by substituting a[0] 
and a(n] for the identifiers a0 and an respectively. The procedure 
then becomes: 
procedure factors (n, a, u, v, r,¢); value n, a; 

integer array a, U, V; 
integer r, n, ¢; 
begin integer p, q; 

r:= 0; c:= 1; 
ZERO: if afn]}=0 then 


begin r := r+1; ulr) := 1; v(r] := 0; n:= n—1; 
go to ZERO 
end; 


for p := 1 step 1 until abs (a[0]) do 
begin if (a(0]+p)xXp=al[0] then 
begin for q := 1 step 1 until abs (a[n]) do 
begin if q=1 then go to NO CONSTANT; 
TRY AGAIN: if (a[n]+q)Xq=a[n] then 
begin integer j; 
for j := 0 step 1 until n—1 do 
if (alj]+q)xXqxalj] then go to 
NO CONSTANT; 
for j := 0 step 1 until n do 


alj] := alj]/a; 
c:= cXq; goto TRY AGAIN 
end; 
NO CONSTANT: begin integer f, g,i; f := a[0]; 
g:= 1; 


for i := 1 step 1 until n do 
begin g := gXD; 
f:= {Xq+alilx¢g 
end; 
if f=0 then 
begin r := r+1; ulr] := p; 
vir] := q; 
begin integer i, t; t := 0; 
for i := 0 step 1 until n do 
begin afi] := t := (afi]+t)/p; 


t := tXq 
end; 
n:=n-—1] 

end 


go to if n=0 then REDUCED 
else NO CONSTANT 


end; 
q := —q; if q<0 then go to NO 
CONSTANT 
end 
end 
end 
end; 


REDUCED: if n=0 then 
begin c := cXa/[0]; a[0] := 1 
end 

end 
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ALGORITHM 76 

SORTING PROCEDURES 

Ivan FLORES 

Private Consultant, Norwalk, Connecticut 


comment The following ALGot 60 algorithms are procedures for 
the sorting of records stored within the memory of the computer. 
These procedures are described in detail, flow-charted, com- 
pared, and contrasted in ‘‘Analysis of Internal Computer Sort- 
ing” by Ivan Flores [J. ACM 8 (Jan. 1961)}. Although sorting is 
usually a business computer application, it can be described 
completely in AuGou if we stretch our imagination a little. 
Sorting is ordering with respect to a key contained within the 
record. If the key is the active record, the sorting is trivial. A 
means is required to extract the key from the record. This is 
essentially string manipulation, for which no provision, as yet, 
has been made in ALGou. We circumambulate this difficulty by 
defining an integer procedure K(I) which ‘creates’ a key 
from the record, I. Aueou does provide for machine language 
code substitutions, which is one way to think of K(I). This 
could be more accurately represented by using the string nota- 
tion proposed by Julien Green [‘‘Remarks on aLGou and Sym- 
bol Manipulation,’? Comm. ACM 2 (Sept. 1959), 25-27]. The 
function sub ($,i,g) represents the procedure, K(I). $ corre- 
sponds to the record I, i-corresponds to the starting position of 
the key and g corresponds to the length of the key. Both i and g 
are values which must be specified when the sort procedure is 
called for as a statement instead of a declaration. 

Another factor, which might vex some, is that the key might 
be alphabetic instead of numeric. Then, of course, K(I) would 
not be integer. It would, however, be string when such is defined 
eventually. Note, also, that keys are frequently compared. This 
is done using the ordering relations ‘‘>’’ for ‘“‘greater than,”’ 
etc. These are not really defined in the ALGOL statement [NauR, 
PETER, ET AL. ‘Report on the Algorithmic Language aLGou 
60’’. Comm. ACM 8 (May 1960), 294-314]. They can simply be 
defined so that Z> Y>--->A>9>-+- >1> 0. Also the 
assignment X[i] := z should be interpreted as ‘‘Assign the key 
‘z’ which is larger than any other key.’”’ For any sort procedure 
(I,N,S), ‘I’ is the set of unsorted records, ‘‘N”’ is their num- 
ber, and ‘‘S’”’ the sorted set of records. 

Caution, these algorithms were developed purely for the love 
of it: No one was available with the combined knowledge of 
sorting and ALGoL to check this work. Hence each algorithm 
should be carefully checked before use. I will be glad to answer 
any questions which may arise; 


Sort insert (I,N,S); ‘value N; array I[1:N], S[1:N]; 
integer procedure K(I); integer N; 
begin integer i, J, k; 
Si] := If); 
for i := 2 step 1 until N do begin 
for} :=i-—1, j — 1 while K(I[i]) > K(S[j]) do 
for k := i step — 1 until j + 1 do 
S[k] := S[K — 1]; 
Sj + 1) := Ifi] end end 
Sort count (I,N,S); value N; array I[1:N], S{1:N]; 
integer procedure K(I); integer N; 
begin integer array C[1:N]; integer i,j; 
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for i := 1 step 1 until N do C[i] := 0; 
for i := 2 step 1 until N do 
for j := 1 step 1 until i — 1 do 
if K(I[i]) > K(I[j]) then C[i] := C[i] + 1 
else C[j] := C[{j] + 1; 
for i := 1 step 1 until N do | 
S[Cfi]] := Ii] end 
Sort select (I,N,S); value N; array I[1:N], S[1:N]; 
integer procedure K(I); integer N; 
begin integer i,j,A,h; 
for i := 1 step 1 until N do begin 
h := K(I[1)); 
for j := 2 step 1 until N do 
if h > K(I[j]) then begin h := K(I[j]); A := j end; 
Sfi] := I[A]; 
I[A] := z end end 


Sort select exchange (I,N); value N; array I[1:N]; 
integer procedure K(I); integer N; 
begin integer h,i,j,H; real T; 
for i := 1 step 1 until N do begin 
H := K(Ifi]); bh := i; 
for j := i+ 1 step 1 until N do 
if K(I[j]) < H then begin 
H := K(I{jj); h:= j end 
T := Ifij; Ii] := fh]; I[A] := T end 
end 


Sort binary insert (I,N,S); value N; array I[1:N], S[l:NJ; 
integer procedure K(I); integer N; 
begin integer i,k,j,l; 
if K(1[1]) < K(1[2]) then begin 
S[1] := I[1]; S[2] := I[2] end 
else begin S[1] := I[2]; S[2] := I[1] end; 
start: for i:= 3 step 1 until N do begin 
j:= (Gi +1) + 2; 
find spot: fork := (i + 1) + 2, (k+1) + 2whilek > 1do 
if K(I[i]) < K(S{j]) then j := j — k 
else j := j +k; 
if K(I[i]) > K(S{j}) then j := j — 1; 
move items: for] ;= istep — 1 until j do 
S(l + 1) := Sl); 
enter this 
one: S[j] := I[i] end end 


Sort address calculation (I,N,S,F); value N; 
array S(1:M], I[1:N]; integer procedure F(K), K(I); 
integer N,M; 
begin integer i,j,G,H,F,M; 
M := entier(2.5 X N) 
for i := 1 step 1 until M do S[i] = 0; 
Address: for i := 1 step 1 until N do begin 
F := F(K(Ifi))); 
if S[F] = 0 then begin S[F] := I[i]; 
go to NEXT end 
else if K(S[F]) > K(I[i]) then go to SMALLER; 
LARGER: for H := F, H+ 1 while K(S{HJ) < K(I[i}) do 
for G := H, G + 1 while K(S[G]) ~ 0 do 
for j := G step —1 until H + 1 do 
S{j] := SH — 1); 
S[H] := I[i]; go to NEXT; 
SMALLER: for H := F, H — 1 while K(S[H]) > K(Ifi]) do 
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for G := H, G — 1 while K(S[G]) + 0 do 
for j := G step 1 until H — 1 do 
Sli] = = S{j + 1]; 
S{H} := I[i]; 
NEXT: end roe 


Sort quadratic select (I,N,S); value N; 
integer procedure K(I); integer N; 
begin integer i,j,k,C,D,J,M; 
integer array C[1:M], D[1:M]; 
array I[1:M, 1:M]; 
Divide inputs: M := entier (sqrt (N)) +1; j:=k:= 1; 
for i := 1 step 1 until N do begin 
I{j,k] := If]; k:=k+1; 
if k > M then begin k := 
= j + 1 end end 
Ifj,k] := 2; k:=k+41; 
ifk > Mthen begin k := 1; j := j +lend 
if] < Mthen go to Fill up inputs; 
Set controls: for ] := 1 step 1 until M do begin 
Ci} := KU, 1); Di] := 
for k = 2 step 1 until M do 
if Cj] > K([j,k]) then hegin 
C{j] := K(ilj,k]); Dj] := k end end; 
i:= 1; 
Find least: C := Cl]; D:= Df]; J:=1; 
for } := 2 step 1 until M do 
if C > C[}] then begin C := 
D := D{j]; J := j end; 
Fill file: Sfi] :=.1[J,DJ; i:=i+41; 
ifi = N + 1 go to STOP; 
for j := J do begin 
Cj] := K(fj, 1); Dj] := 1; 
for k := 2 step 1 until M do 
if C{j] > K({j,k]) then begin C[j] := 
K(ifj,k]; D{j] := k end end; 
go to Find least; 
STOP: end 


array I{1:N]J, S[l:N]; 


Fill up inputs: 


Cli]; 
I[J,D] := 


Reset controls: 


Presort quadratic selection (I,N,S); value N; 

array I{1:N], S[l:N]; integer procedure K(I); integer N; 

begin integer i,j,k,C,J,M; . 
integer array C[{1:M], D[{1:M]; 
array I{1:M,1:M]; — 

Divide inputs: M := entier (sqrt(N)) +1; j:=k:=1; 
for i := 1 step 1 until N do begin 

I{j,k] := If]; k:=k+1; 

if k > M then begin k := 1; 

j := j + lend end 

Ij,k] := 2; k:=k4+41; 
if k > M then begin k := j=j+lend 
if} < M then go to Fill up inputs; 
for j := 1 step 1 until M do 
sort select exchange (I{j,k],M); 
for } := 1 step 1 until M do begin 

C{j] := K(Ij,1]); DG] := 1 end 
i:= 1; 


Fill up inputs: 


First sort: 


Set controls: 


Find least: C := Ci]; J:= 1; 
for ) := 1 step 1 until M do 
if C > C[j] then begin C := C[j]; 
J := j end; 
Fill file: S{i] := I[J,D(J]]; i:= i+ 1; 


ifi = N + 1 go to STOP 
for j) := J do begin 
Dij] := Di] + 1; 
if D[j] > M then Cj] 
K(I[j, D{j]]) end 
go to Find least; 
STOP: end 


Reset control: 


:= z else C{j] := 
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value N; array 1(1:N]; 
integer N; 


Sort binary merge (I,N,S); 
integer procedure K(I); 
begin real array 8(1:N]; 
integer array A(0:1, 0:J[{a]], B[0:1, 0: K[b]], Aloc({0:1, 0:J{al], 

Bloc[0:1, 0:K{b]], J[0:1], K[O:1], j[0:1], k{0:1); 
integer a,b,i,j,k; 
distribute: a:= b := jf0] := jf] := 
for i := 1 step 1 until N do begin 
if K(J[i]) < K(1{i—1] then 
ifa = 1 then a := Oelsea := 1; 
Ala, jla]] := K(Ifi]); Alocfa, jla]] := i; 
jla] := j[a] + 1 end; 

J[O] := j[0]; J[1] := jf]; 

begin a := b := j(0] := jl] 
k{1] = 


if All, aie 
a:=0; 
B[b, k{b]] := Alfa, j[a]]; 
- Bloc{b, k[b]}] := Aloefa, j[a]]; 
jla] := ja] + 1;. kb] := k{b] + 1; 
if Afa, j{a]] > Alfa, ia] — 1} then go to two 
inputs else 
ifa = 1thena := jsises := 4; 
B[b, k[b]] := Ala, j[a]l; 
Bloe[b, k{b]] := Alocfa, j{a]]; 
jla]::= jla] +1; kb] := k{b] + 1; 
if Ala, j[a]} > Ala, j[a] — 1] then go to 
single step; 
switch file: - if b = 1 then b := 0 else b := 
check rollout: . for a := 0,1do 
if j(a] = J[a] then go to rollout; 
go to two inputs; 
B{b, k{b]] := Ala, j{a]]; 
Bloc[b, k[b]} := Aloe fa, j{a]]; 
k{b] := k[b] + 1; jla] := jla] +1; 
if j[a] = J[a] then go to interchange files; 
. if Afa, j{a]] < Ala, jfa] — 1] then 
if b = 1 then b := 0 else b := 
go to rollout; 
interchange files: K{0] := k[0]; K[1] := k{l]; 
if K{0] = 1 then go to output end 
‘for b := 1, 0 do begin 
for k[b] := 1 step 1 until K[b] do begin 
A[b, k[b]] := Bb, k[b]]; 
Aloc[b, k[b]] := Bloc{b, k[b]]; 
' J{b] := K[b] end end 
go to next sort; 
for i := 1 step 1 until N do 
S{i] := I[Bloe[0, ij]; 


next sort: := k(0] := 


two inputs: A[0, j(0]| then a := 1 else 


single step: 


rollout: 


output: 


end 


REMARK ON: ALGORITHM 76 
SORTING PROCEDURES (Ivan Flores, Comm. ACM 
5, Jan. 1962) 


B. RANDELL 
Atomic Power Div., The English Electric Co., Whetstone, 


England 


The following types of errors have been found in the Sorting 
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Procedures: 

1. Proc2dure declarations not starting with procedure. 

2. Bound pair list given with array specification. 

3. = used instead of :=, in assignment statements, andina for 
clause. 

4. A large number of semicolons missing (usually after end). 

5. Expressions in bound pair lists in array declarations depend- 
ing on local variables. 

6. Right parentheses missing in some procedure statements. 

7. Conditional statement following a then. 

8. No declarations for A, or z, which is presumably a misprint. 

9. Inseveral procedures attempt is made to use the same identi- 
fier for two different quantities, and sometimes to declare an 
identifier twice in the same block head. - 

10. In the Presort quadratic selection procedure an array, de- 
clared as having two dimensions, is used by a subscripted variable 
with only one subscript. 

11. At one point a subscripted variable is given as an actual 
parameter corresponding to a formal peratioter spooled as an 
array. 

12. In several of the procedures, identifiers used as formal 
parameters are redeclared, and still assumed to be available as 
parameters. 

13. In every procedure K is given in the specification part, with 
a parameter, whilst not given in the formal parameter list. 

No attempt has been made to translate, or even to understand 
the logic of these procedures. Indeed it is felt that such a grossly 
inaccurate attempt at ALGoL should never have appeared as an 
algorithm in the Communications. 
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ALGORITHM 77 

INTERPOLATION, DIFFERENTIATION, AND IN- 
TEGRATION 

Paut EK. HENNION 

Grumman Aircraft Engineering Corporation, Bethpage, 
L. I., New York 


real procedure AVINT (nop, jt, xarg, xlo, xup, xa, ya); 
value nop, jt, xarg, xlo, xup; real xarg, xlo, xup; 
integer nop, jt; real array xa, ya; 
comment This procedure will perform interpolation, differen- 
tiation, or integration operating upon functions of one vari- 
able which over part or all of the interval of interest are ade- 
quately described by a di-parabolic fit. 

The routine was originally programmed as an open subrou- 
tine for the IBM 704 in Fortran II and occupied 323 memory 
locations. It is based upon a Lagrange interpolation scheme 
specialized for averaged second order parabolas. The tech- 
nique finds the slope of a function numerically defined at 
points 1, 2, 3 and 4 by fitting a parabola through the points 
1, 2, 3, and another parabola through the points 2, 3, and 4. 
The slope then, at point 2,is the average analytical derivative 
of the two parabolas, i.e. the coefficients of the parabola 
through points 1, 2 and 3 (a:x22+bix2+c1) and the coefficients 
of the parabola through points 2,3, and 4 (a2x2?+-bex2-+e2) 
are determined by applying Lagrange’s equations as shown be- 
low. The arithmetic mean of these coefficients a = (a;+a2)/2, 
b = (bitbe2)/2, ¢ = (cite2)/2 are used to supply the slope 
in the interval from 2 to 3, namely (2ax + b). 

The interpolation is calculated in similar fashion, except the 
final formula is that a parabola (ax? + bx + c). 

The integration is performed likewise by a curve fitting 
process, e.g. the integral between any two points say 2 and 3 
is the average integral of the two parabolas between the inde- 
pendent coordinate limits for points 2 and 3. The averaging 
process is done for each interval along the abscissa as the 
results obtained are accumulated to evaluate the definite 
integral. 

Applying Lagrange’s equations, the coefficients a, b, and c 
may be found by defining: T; = y;/[[?u, i; (X; — Xi) where 
y = f(x), n = 3, j = 1, 2,---, n, then aa = DOR Ti, 
b == Doha Tidcien, i Xi, = Doha Ti] [pas, jpti Xj 5 

begin real ca, cb, cc, a, b, c, syl, syu, terml, term2, term3, da, 
dif, sum; 
integer jm, js, jul, ia, ib; 
start: switch alpha := Li, Li, L12; switch beta := L9, 
L5, 16; 
switch gamma := L10, L111; switch delta := L8, 
L8, L13; 
comment For interpolation, differentiation or integration set 
jt = 1, 2, or 3 respectively; 
go to alpha [jt]; 
Li: if xarg > xa [nop] then go to L2; 
if xarg > xa [nop—1] then go to L2; 
if xarg < xa [1] then go to L3; 
if xarg < xa [2] then goto L3; go to L4; 


L2: 

L3: 
comment 

L4: 


comment 


Ld: 


L6: 


L7: 
L8: 
L9: 
comment 
L10: 
comment 
Lil: 
comment 


L12: 


L116: 


comment 


L13: 


L114: 


Li5: 


comment 


term: 
comment 


exitl: 
exit2: 
exit3: 
exit: 
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jm := nop—1; js:= 1; go to term; 

jm := 2; js := 1; goto term; 

Locate argument; 

for ia := 2 step 1 until nop do begin 

if xa [ia] > xarg then go to L7; jm := ia end; 

Before loop.is complete xarg < xa [ia]; 

ca := a; cb := b; ce := ¢; js := 3; im := 
jm+1; go to term; 

a := (cata)/2; b := (eb+b)/2; ¢ := (ece+c)/2; 
go to L9; 

js := 2; go to term; 

go to beta [js]; 

go to gamma [jt]; 

Interpolation, jt = 1; 

da := aX xarg 1 2+ bX xarg-+c; gotoexitl; 

Differentiation, jt = 2; 


_ dif := 2X xarg +b; go to exit2; 


Integration, jt = 3; 

sum := 0; syl := xlo; jul := nop — 1; 
ib := 2; 

for jm := ib step 1 until iul do begin; 

Lagrange formulae; 

terml := ya [jm — 1]/((xa [jm — 1] — xaljm]) X 
(xa[jm — 1] — xa[jm + 1))); 

term2 := ya {jm]/((xa [jm] — xa [jm — 1]) X 
(xa[jm] — xa [jm + 1])); 

term3 : = ya [jm + 1]/((xa [jm + 1] — xa [jm — 1]) X 


(xa [jm + 1] — xa [jm])); 
a:= terml + term2 + term3; 
b := —(xa [jm] + xa [jm + 1]) X terml — (xa 


[jim — 1] + xa [jm + 1]) &K term2 — (xa [jm — 1] + 
xa [jm]) X term3; 

ce := xa [jm] X xa [jm + 1] X terml + xa [jm — 1] X 
xa [jm + 1] X term2 + xa [jm — 1] X xa [jm] X 
term3; go to delta [jt]; 

if jm ~ 2 then go to L14; 

ca:=a; eb:=b; cc: c¢; goto L15; 

ca := (a + ca)/2; ch := (b + cb)/2; ce = 
(ec + cc)/2; 

syu := xa [jm]; 

sum := sum + ca X (syu fT 3 — syl f 3)/8 + cb xX 
(syu fT 2 — syl fT 2)/2 + ce X (syu — syl); 

ca:= a; cb:=b; ec := c; syl := syu end; 

End of loop on [jm] index; 

sum := sum + ca X (xup f 3-syl f 3)/3 + cb X 
(xup f 2-syl T 2)/2 + cc X (xup — syl); go 
to exit3; 

ib := jm; jul := ib; goto L16; 

The results for interpolation, differentiation, and 
integration are da, dif, and sum respectively; 

AVINT := da; go to exit; 


AVINT := dif; go to exit; 
AVINT := sum; 
end 
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CERTIFICATION OF ALGORITHM 77 

AVINT (Paul E. Hennion, Comm. ACM 6, Feb., 1962) 

Victor E. WHITTIER 

Computations Res. Lab., The Dow Chemical Co., Mid- 
land, Mich. 


AVINT was transliterated into BAC-220 (a dialect of ALGOL-58) 
and was tested on the Burroughs 220 computer. The following 
minor errors were found: 

1. The first statement following label L11 should read: 
dif := 2x a xX xarg + b; 

2. The semicolon (;) at the end of the line beginning with the label 
L16 should be deleted. 

3. There appears to be a confusion between ‘1’? (numeric) and 
‘1’ (alphabetic) following label L12. This portion of the 
program should read: 

L12: sum :=0; syl := xlo; jul := nop — 1; ib:= 2; 

After making the above corrections the procedure was tested for 
interpolation, differentiation, and integration using e*, log X, and 
sin X in the range (1.0 S$ X S 5.0). Twenty-one values of each of 
these functions, evenly spaced with respect to X and accurate to 
at least 7 significant digits, were tabulated in the above range. 
Then the procedure was tested. The following table indicates ap- 
proximately the accuracy obtained: 


Number of Significant Digits 


Function Interpolation Differentiation Integration 
er 2 4* 22 24 
log X 24* 22 23 
sin .Y =4* 22 24 


* Except for interpolation between the first two points in the 
table. 


The above results are quite reasonable in view of the relatively 
large increment in X. Tests using smaller increments in X and un- 
even spacing of X were also satisfactory. 

It was also discovered that for integration the following re- 
strictions must be observed: 

1. xlo S xa (1). 

2. xup 2 xa (nop). 


REMARK ON ALGORITHM 77 

INTERPOLATION, DIFFERENTIATION, AND IN- 
TEGRATION [P. E. Hennion, Comm. ACM, Keb., 1962] 
P. E. Hennion 


Giannini Controls Corp., Berwyn, Penn. 


It was brought to my attention through the CERTIFICATION 
OF ALGORITHM 77 AVINT [V. E. Whittier, Comm. ACM, June, 
1962] that restrictions on the upper and lower limits of integration 
existed, i.e., (1) x10 S xa (1), (2) xup = xa(nop). To remove 
these restrictions the following two changes should be made. 

1. Before line LJ6: and after the statement 7b := 2; place the 
following code: 

for ia := 1 step 1 until nop do begin 
if ra@a) = 210 then goto L117; ib :=7b+ 1; end; 
17: jul:= nop +1; for za ;= 1 step 1 until nop do begiu 
jul:= jul—1; ifsvaGjul) > cup end;jul:= jul — 1; 
2. Change line 213: to read: 
L13: if jm + ib then go to L14; 
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REMARK ON ALGORITHM 77 

INTERPOLATION, DIFFERENTIATION, AND IN- 
TEGRATION [P. E. Hennion, Comm. ACM 5, Feb. 
1962] 

P. E. HENNIoN 

Giannini Controls Corp., Berwyn, Penn. 


It was brought to my attention through the CERTIFICATION 
OF ALGORITHM 77 AVINT (V. E. Whittier, Comm. ACM, 
June, 1962) that restrictions on the upper and lower limits of inte- 
gration existed, i.e., (1) zlo S xa(1), (2) zup = xa(nop). To remove 
these restrictions the following two changes should be made. 

1, Replace the two lines starting at line L12: and ending after 
the statement 7b := 2; with the following code: 


L12: sum := 0; syl := xlo; ib := 2, yul := nop; 
for 1a := 1 step 1 until nop do begin 
if za [1a] = xlo then go to L17;_ ib := ib + 1; end; 
for 1a := 1 step 1 until nop do begin 
if zup 2 xa [jul} then go to 118; jul := jul — 1; 
Q18: jul := jul — 1; 
2. Change line L13: to read 
L13: if jm ¥ ib then go to L14; 


LA17: 
end; 
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ALGORITHM 78 

RATIONAL ROOTS OF POLYNOMIALS WITH IN- 
TEGER COEFFICIENTS , 

C. Perry . 

University of California at San Diego, La Jolla, California 


comment This ALGoL procedure, named ratfact, for finding 
rational roots of polynomials with integer coefficients is a 
pedagogical example illustrating the use of the for statement 
described in section 4.6.3. Also, an extension suggested by 
J. Peck of the well-known polynomial evaluation by nesting, 
i.e. Horner’s method, is used. The polynomial f(x)=a + aix+ 
+++ -banx" with integer coefficients and with acan,~o has a 
lowest term rational root p/q if and only if agq™ + aiq™'p + 
+++ -+anig p™! + a,p"= 0, also.q must be a factor of a, and 
p a factor of a. Procedure Ratracr outputs the nonzero 
rational roots p/q by execution of the procedure whose formal 
name is print. The output procedure uses the string whose formal 
name is format for control of the output format; 
procedure ratfact (a, n, print, format); 
integer array a{0:n]; integer n; 
format; : 
begin integer i, p, q, r, t, f, g; 
p loop: for p := 1 step 1 until abs (a[0]) do 
begin comment if p is not a factor of a [0] or q is not a factor 
of a(n] then skip to the ehd of the loop for advance in the 
respective for list; 
if a[0] ¥ (a[0]+p)xXp then go to 1 
else q loop: for q := 1 step 1 until abs (a[n]) do 
begin if afn] ~ (alfn]+ q)xXq then go to 2 
else 
begin comment root test and print; 
comment start polynomial evaluation; 
f :=g:=al0]; t :=p; 
for i := 1 step 1 until n do 
begin r := ali]Xt; 


procedure print; string 


f := fXq-+r; 
g = —eXqtr; 
t := tXp; 


end_ polynomial evaluation; 
comment computing r saves one 
evaluation; 

if f=0 then print (format, p, q); 

if g=0 then print (format,—p, q); 

comment print is the formal name of the procedure 
to be used to output the variables in the format 
specified by the string whose formal name is format; 

end root test and print; 
2: end q loop; 
1: end p loop; 
end ratfact, without overflow test. 


subscript 
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REMARK ON ALGORITHM 78 

RATIONAL ROOTS OF POLYNOMIALS WITH 
INTEGER COEFFICIENTS [C. Perry, Comm. ACM, 
Feb. 1962] . 

D. M. CoLiison 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England | 
The algorithm was successfully run using the Elliott ALGoL 


translator on the National-Elliott 803. It was noticed that a 
multiple rational root will only be printed once by the procedure. 


CERTIFICATION OF ALGORITHM 78. 
RATFACT (C. Perry, Comm. ACM 5, Feb. 1962) 
M. H. Hatsreap 

Navy Electronics Laboratory, San Diego, Calif. 


RATFACT was copied in the Navy Electronics Laboratory 
International ALGoL Compiler, Netrac, and tested on the Unt- 
vac M-490 Countess and the CDC 1604. Polynomials of order 2 
through 6 were tested. No corrections were found necessary. It 
was noted that a polynomial whose coefficients included a com- 
mon factor would produce superfluous values of p/q, in which 
this fraction was indeed a root, but one in which p and q contained 
a common factor. 
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ALGORITHM 79 

DIFFERENCE EXPRESSION COEFFICIENTS | 

Tuomas P, G1AMMO 

Space Technology Laboratories, Inc., 
fornia 


Los Angeles, Cali- 


procedure dicol (k, n, xp, xtab, coef); 

value k,n; integer k,n; real.xp; 

array xtab, coef; 

comment dicol produces the coefficients ii the n ordinates 
(corresponding to the abscissae, xtab) in the n-point finite 
difference expression for the k-th derivative evaluated at xp. 
The method used is to determine the analytic expression for 
the k-th derivative of each coefficient in the n-point Lagrangian 
interpolation formula and evaluate it at xp. Note that k=0 
will produce the Lagrangian interpolation coefficients them- 
selves; 


begin integer array xuse [1 : n—1]; real factk, sum, denom, 
part; 

integer i, terms, j, m, high; 

factk := 1.0; for i := 2 step 1 until k do factk := iX factk; 

terms := n—k—1; if terms<0 then go to Z; 


for j := 1 step 1 until n do 
loop: begin sum := 0; denom := 1.0; part := 1.0; 
for i := 1 step 1 until n do 
if i # j then denom := denom& (xtab [j] — xtab [i]); 
if terms = 0 then go to Y; 
m:=1; high := 
A: if (high = j)\V(xtab [high] = 
Al: begin high := high + 1; 
if high >.n then A2: begin m := m—1; 
then 
A3: begin high := xuse [m]+1; 
go to X end A2; 
xuse [m] := high; m := m+]; 
if mSterms then begin high : 
A end; 
fori := 1 step | until terms do 
part := partX (xp — xtab [xuse [i]]); 
sum := sum + part; m:= terms; part := 1.0; 
high := xuse [terms] + 1; goto A; 
Y: sum := 1.0; 
X: coef {[j] := sum X factk/denom end loop; 
go to EXIT; 
Z: fori := 1 step leuntil n do coef [i] := 0; 
EXIT: end dicol 


xp) then 
go to A end Al; 
if m>0 


go to A end A3; 


= high + 1; go to 
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DIFFERENCE EXPRESSION COEFFICIENTS 
[Thomas Giamo, Comm. ACM, Feb. 1962] 

Eva 8. CLARK aan 

University of California at San Diego, La Jolla, California 
The procedure was translated into FoRTRAN and run on the 

CDC 1604. Reasonable accuracy was obtained fork = 0,4 Sn S 12. 

For increasing n and increasing k, the accuracy diminished. It was 


found that the execution time increased rapidly as m was increased. 
For k = 0, the following results were obtained: 
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= 


Approximate Number of Machine Operations 


tit 
NSO 


The author indicated in a letter that the procedure was de- 
veloped for use with small n and small k. 
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ALGORITHM 80 

RECIPROCAL GAMMA FUNCTION OF REAL 
ARGUMENT 

WiiiiaM Hoisten 

University of California at San Diego, La Jolla, California 


real procedure RGR(x); real x; real procedure RGAM,; 
comment Procedure RGAM computes the real reciprocal 
Gamma function of real x for —1 < x < 1, utilizing Horner’s 
method for polynomial evaluation of the approximation poly- 
nomial. RGR extends the range of RGAM by use of the formulae 
(1) 1/Gamma(z—1) = (r—1)/Gamma(z) for z<—1, 
(2) 1/Gamma(z+1)= 1/rXGamma(z) for z<1.; 
begin real y; 
if x = 0.then begin RGR : 
if x = 1 then begin RGR : 
if x < 1 then go to BB; 
yim 1; 
AA: X:=x—1; y:=yX x; if x > 1 then go to AA; 
if x = 1 then begin RGR := I/y; go to EXIT end 
RGR := RGAM(x)/y; goto EXIT; 
BB: if x = —1 then begin RGR := 0; go to EXIT end 
if x > —1 then begin RGR := RGAM(x); 
go to EXIT end 
Fi 
CC: x:= x+1; if x < —1 then begin y := y X x; 
go to CC end 
RGR := RGAM(x) X y; 
EXIT: end RGR; 


real procedure RGAM(x); 
real array B{0:13]; 

comment The algorithm for this routine was adapted from 
“University of Illinois Digital Computer, Auxiliary Library 
Routine B-17-328”, by John Ehrman. Reference may also be 
made to Algorithm 34, dated February, 1961. Approximation 
accuracy is +27%; 

begin real z; 


0; go to EXIT end 
1; go to EXIT end 


real x; integer 1; 


B[ 0] := 1.00000 00000 00; B[ 1] := —.42278 43350 92; 
B[ 2] := —.23309 37363 65; B[ 3] := +.19109 11011 62; 
B[ 4] := —.02455 24908 87; B[ 5] := —.01764 52421 18; 
B[ 6) := +.00802 32781 13; B[ 7] := —.00080 43413 35; 
B[ 8] := —.00036 08514 96; B[ 9] := +.00014 56243 24; 
Bf10] := —.00001 75279 17; B[11] := —.00000 26257.21; 
B[12] := +.00000 13285 54; B13] := — .00000 01812 20; 
z: = BI13]; 
for i := 12 step —1 until 0 doz := z X x + Bil; 
RGAM := z X x X (x + 1) 

end RGAM; 

REMARKS ON: 


ALGORITHM 34 [S14] 
GAMMA FUNCTION 
[M. F. Lipp, Comm. ACM 4 (Feb. 1961), 106] 
ALGORITHM 54 [814] 
GAMMA FUNCTION FOR RANGE 1 TO 2 
(John R. Herndon, Comm. ACM 4 (Apr. 1961), 180] 
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ALGORITHM 80 [814] 
RECIPROCAL GAMMA FUNCTION OF REAL 
ARGUMENT 
[William Holsten, Comm. ACM 5 (Mar. 1962), 166] 

ALGORITHM 221 [814] 
GAMMA FUNCTION 

[Walter Gautschi, Comm. ACM 7 (Mar. 1964), 143] 
ALGORITHM 291 [S14] 
LOGARITHM OF GAMMA FUNCTION 

[M. C. Pike and I. D. Hill, Comm. ACM 9 (Sept. 1966), 

684] 
M. C. Pixs anp I. D. Hi (Recd. 12 Jan. 1966) 
Medical Research Council’s Statistical Research Unit, 
University College Hospital Medical School, 
London, England 


Algorithms 34 and 54 both use the same Hastings approxima- 
tion, accurate to about 7 decimal places. Of these two, Algorithm 
54 is to be preferred on grounds of speed. 


Algorithm 80 has the following errors: 
(1) RGAM should be in the parameter list of RGR. 
(2) The lines 
. ifx = 0 then begin RGR : 
and 

if z = 1 then begin RGR := 1; goto EXIT end 
should each be followed either by a semicolon or preferably by an 
else. 

(3) The lines 

if z = 1 then begin RGR := 1/y; 
and 

ifz < — 1then beginy :=y Xx; gotoCC end 
should each be followed by a semicolon. 

(4) The lines 

BB: if x = —1 then begin RGR := 0; go to EXIT end 
and 

if z > —1 then begin RGR := RGAM(xz); goto EXIT end 
should be separated either by else or by a semicolon and this 
second line needs terminating with a semicolon. 

(5) The declarations of integer 7 and real array B[0:13] in RGAM 
are in the wrong place; they should come immediately after 
begin real z; 


0; goto EXIT end 


go to EXIT end 


With these modifications (and the replacement of the array B 
in RGAM by the obvious nested multiplication) Algorithm 80 ran 
successfully on the ICT Atlas computer with the ICT Atlas 
ALGOL compiler and gave answers correct to 10 significant digits. 


Algorithms 80, 221 and 291 all work to an accuracy of about 10 
decimal places and to evaluate the gamma function it is therefore 
on grounds of speed that a choice should be made between them. 
Algorithms 80 and 221 take virtually the same amount of comput- 
ing time, being twice as fast as 291 at x = 1, but this advantage 
decreases steadily with increasing x so that at z = 7 the speeds are 
about equal and then from this point on 291 is faster—taking only 
about a third of the time at z = 25 and about a tenth of the time 
at x = 78. These timings include taking the exponential of log- 
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gamma. 

For many applications a ratio of gamma functions is required 
(e.g. binomial coefficients, incomplete beta function ratio) and the 
use of algorithm 291 allows such a ratio to be calculated for much 
larger arguments without overflow difficulties. 
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ALGORITHM 81 

ECONOMISING A SEQUENCE 1 

Brian. H. Mayou | 

Digital Computer Laboratory, University of Illinois, 
Urbana, III. 


procedure ECONOMISER 1 (desired property, costs, n, C); 
array costs; integer n; 
Boolean procedure desired property; 
Boolean array C; 
begin comment Given a finite, monotonely increasing 
sequence of positive numbers, looked upon as prices, ECONO- 
MISER 1 selects the cheapest subsequence with a given prop- 
erty. The formal parameters are: Desired property, a function 
designator to answer the question: Does the subsequence held 
in array C possess the required property? 7 is (number of ele- 
ments in the sequence) + 1. Costs is an array of size [l:n]. 
Costs[1] to costs[n—1] hold the numbers of the sequence and 
costs[n] is any arbitrary number greater than the sum of all 
other elements of costs. C is an array of the same size and indi- 
cates a subsequence by the rule: C[z] = element 7 of the original 
sequence is in the subsequence. At exit from ECONOMISER 1, 
C indicates the cheapest subsequence. It is supposed that the 
original sequence has the desired property.; 
integer d, j, k, ¢; real i; 
for j := 1 step 1 until n do C{j] := j = 1; -d := 0; 
reenter: d:= d+1; 
INSIDE: begin own real array prices [1:d]; 
own Boolean array alternatives[1:d, 1:n]; 
procedure ENTER SUCCESSORS; 
begin k := n—-1; 
A: if — C[k] then 
begin k := k—1; goto Aend; i := 0; 
for] := 1 step 1 until ndo 
begin alternatives[¢,j] 
= jx#kAj# k-1 = Cfj]; 
if alternatives[¢,j] then 
i := 1+ costs[j] 
end; 
B: k := k—1; 
go to if k = 0 then find cheapest 
else if C[k] then (if k=1 then 
find cheapest else B) 
else if k=1 then E 
else if C[k—1] then D 
else find cheapest; 
D: C[{k—1] := false; 
E: Clk] := true; go to reenter 
end of ENTER SUCCESSORS; 
1:= 0; for j := 1 step 1 until n do 
begin alternatives[d,j] := C{j]; if C[j] then 
i := i+ costs[j] 
end; prices[d] := i; 
find cheapest: i:=0; forj := 1 step1untilddo 
begin if prices[j] < 1 then 
begin ¢ := j; i := prices{¢] end 
end; 


for j := 1 step 1 until n do 
Cij] := alternatives[¢,j]; 
if — desired property then 
ENTER SUCCESSORS 
end of INSIDE; 
end of ECONOMISER '- 
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ALGORITHM 82 

ECONOMISING A SEQUENCE 2 

Brian H. Mayou 

Digital Computer Laboratory, University of Illinois, 
Urbana, II. 


procedure ECONOMISER 2 (desired property, costs, n, C, r, 
Reject list); Boolean procedure desired property; 
integer n, r; array costs; Boolean array Reject list; 
begin comment In some applications of ECONOMISER 1, it 
is simple to establish that some subsequences are redundant in 
the sense that any sequence containing them is certainly not 
the cheapest subsequence with the desired property. For such 
applications ECONOMISER 2 avoids all unnecessary calls of 
desired property. The new formal parameters are: r a variable 
whose value is initially 0 and is increased by 1 every time that 
desired property discovers a new redundant subsequence. 
Reject list an array of size [1:r,1:n]. Reject list [a,b] carries the 
answer to: Is element b of the original sequence in the at 
redundant subsequence found by desired property?; 
reali; integer d,j, k, ¢; Boolean gapfilled, first time; 
procedure INSIDE (entrymaker); Boolean entrymaker: 
begin own real array prices{1:d]; 
own Boolean array alternatives[1:d,1:n]; 
procedure ENTER SUCCESSORS; 
begin integer c; Boolean array ssq[1:n]; 
for j := 1 step 1 until n do ssq[j] := Cf]; 
c:=n-—l; 
A: if — ssq[c] then begin c := c—1; 
C{c] := false; C[c+1] := true; 
INSIDE (true); 
gapfilled := true; 
B: ¢:= c-l; 
go to if c=0 then F else if ssq[c] then 
(if c=1 then F else B) else if c=1 then 
EK else if ssq{[c—1] then D else F; 
D: ssq{[c—1] := false; 


go to A end: 


E: for j := 1 step 1 until n do C{j] := ssq[{j] = je; 


INSIDE (true); 
F: end of ENTER SUCCESSORS; 
if entrymaker then 
begin for ] := 1 step 1 until r do 
begin for k := 1 step 1 until n do 
begin if — C{k] A Reject list{j,k] then 


go to G end; 
ENTER SUCCESSORS; go to H; 
G: end; 
i:= 0; if gapfilled then d := d+1;, 


for ) := 1 step 1 until n do 
begin alternatives[if gapfilled then 
d else ¢, j] := Cj); 
if C[j] then i := i + costsfj] 
end; prices[if gapfilled then d else ¢] := i 
end; if first tinie \/ — entrymaker then 
begin i:= 0; gapfilled := first time := false; 
for j := 1 step 1 until d do 
begin if prices[j] < i then 
begin ¢ := j;_ i := prices{¢] end 
end; 


for j := 1 step 1 until n do 
Cj] := alternatives[f,j]; 
if desired property then go to found; 
ENTER SUCCESSORS; go to reenter 
>. end; : 
H: end of INSIDE; 
for j := 1 step 1 until n do Cfj] := j=1; 
d := 0; first time := gapfilled := true; 
reenter: INSIDE (first time); 
found: 
end of ECONOMISER 2; 
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ALGORITHM 83 

OPTIMAL CLASSIFICATION OF OBJECTS 

Brian H. Mayon 

Digital Computer Laboratory, University of Tlinois, 
Urbana, Il. 


procedure OPTIMUM COVERING FINDER (Pattern, popu- 
lation, set number, set prices, chosen sets, bounds, overflow) ; 
Boolean array Pattern, chosen sets; integer population, 
set number, bounds; array set prices; label overflow; 
begin comment The number of objects in some given set is 
given by population. The procedure is given a classification of 
these objects by a collection of overlapping subsets. A cost 
is assigned to each subset. Then OPTIMUM COVERING 
FINDER selects the cheapest subcollection such that every 
object is contained in at least one of the subsets of the sub- 
collection. set prices[i] carries the cost of subset 7. Pattern 
is an array of size [1:set number,1: population] such that. Pat- 
tern{a,b] = does subset a include object b. chosen sets{z] finally 
carries the answer to the question: Is set 7 in the cheapest 
subcollection? The programmer must restrict the amount of 
space available to the procedure by setting bounds. From ex- 
perience bounds = set number { 2 suffices to avoid most alarm 
exits to overflow.; 
Boolean array C[i:population], D[l:bounds, 1:population], 
R, S{1:bounds,1:set number]; 
integer a, b, d, r, 8; 
Boolean procedure HAVE WE A COVERING; 
begin procedure ADD to (Q,q,f); integer q; 
real f; Boolean array Q; 
begin if q=bounds then go to overflow else q := q+; 
for a := 1 step 1 until set number do Q/[q,a] := f 
end; for a := 1 step 1 until population do 


C[a] := false; 
for a := 1 step 1 until set number do 
begin if chosen sets[a] then 
for b := 1 step 1 until population do 
C{b] := Clb] V Pattern[a,b] 
end; for a := 1 step 1 until population do 
begin if — C[a] then go to E end; 
go to found; 
E: ford := 1 step 1 until s do 
begin for b := 1 step 1 until population do 
begin if C{[b] A — D[d,b] then go to try another end; 
ADD to (R, r, chosen sets[a]) ; 
for b := 1 step 1 until set number do 
begin if chosen sets|b] (\ — S[d,b] then 
ADD to (R, r, S{d,a] V a=b) 
end; goto F; 
try another: 
end of for statement labelled E; 
ADD to (8, s, chosen sets[a}); 
for a := 1 step | until population do D{s,a] := C[a]; 
F: HAVE WE A COVERING := false 
end; r:= 5s := 0; 
-ECONOMISER 2 (HAVE WE A COVERING, set prices, 
set number, r, R, chosen sets); 
found: end 
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ALGORITHM 84 

SIMPSON’S INTEGRATION 

Pauut E. HENNION 

Giannini Controls Corporation 

Astromechanics Research Division, Berwyn, Penn. 

real procedure SIM (n, a, b, y); 

value n, a, b; real a, b; integer n; array y; 

comment This is a method for obtaining the approximate value 
of the definite integral of a continuous function when the in- 
tegral cannot be evaluated in elementary functions. Given 
y = f(x) and the f2 y dx to be evaluated. Plot the curve f(x), 
and divide [a, b] evenly into n equal parts, erecting the ordi- 
nates yo, yi,°‘°*, Yn. Then the approximate value of the 
definite integral by Simpson’s rule states that: 


hee 
/ f(x) dx = = (yo + 4y1 + 2y2 + +++ + 4yn-1 + Yn); 


begin real s; integer 1; 
s:= (y[0] — yln])/2; 
for i := 1 step 2 untiln — 1dos :=s +2 yli] + yli+]]; 
SIM := 2x (b — a) X 8/(3 X n) 
——e 


end 


CERTIFICATION OF ALGORITHM 84 

SIMPSON’S INTEGRATION [P. E. Hennion, Comm. 
ACM 6 (Apr. 1962)] 

A. P. Reupu 

The English’ Electric Co., Whetstone, England 
Simpson’s Integration was translated using the Deuce ALGoL 


compiler and, with no corrections, gave satisfactory results. 
It is not stated in the comment that integer n needs to be even. 


REMARK ON ALGORITHM 84 

SIMPSON’S INTEGRATION [Paul E. Hennion. Comm. 
ACM, Apr. 1962] 

RicHARD GEORGE* 

Particle Accelerator Div., 
Argonne, Il. . 
* Work supported by the U. 8. Atomic Energy Commission. 


Argonne National Lab., 


In performing integration by the use of Simpson’s rule, it is well 
known that the interval (a, b) must be divided evenly into n equal 
parts, and that tt ts essential for n to be an even number. 

In the published algorithm, there is neither a comment on this 
important restriction, nor a programmed test for the parity of n. 
It is therefore a potential trap for the unwary programmer. 
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CERTIFICATION OF ALGORITHM 84 
SIMPSON’S INTEGRATION [P. E. Hennion, Comm. 
ACM, Apr. 62] 
Peter G. BEHRENZ 
Matematikmaskinnimnden, Stockholm, Sweden 
SIM was successfully run on FACIT EDB using Facit-ALGou 
1, which is a realization of ALGoL 60 for FACIT EDB. No changes 


in the program were necessary. To test SIM some polynomials 
were integrated. 
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ALGORITHM 85 

JACOBI 

Tuomas G. Evans 

Bolt, Beranek, and Newman*, Cambridge, Mass. 


* This work has been sponsored by the Air Force Cambridge 
Research Laboratories, OAR (USAF), Detection Physics Lab- 
oratory, under contract AF 19(628)-227. 


procedure JACOBI (A, S, n, rho); 

value n, rho; integer n; real rho; real array A, 8; 

comment This procedure finds all eigenvalues and eigenvectors 
of a given square symmetric matrix by a modified Jacobi (itera- 
tive) method (cf. J. Greenstadt, “The determination of the charac- 
teristic roots of a matrix by the Jacobi method,’ in Mathematical 
Methods for Digital Computers, A. Ralston and H. S. Wilf, eds.). 
JACOBLis given a squaresymmetric matrix of order n stored in 
the array A. The initial contents of the array S are immaterial, 
as § is initialized by the procedure. At exit the kt» column of the 
array S contains the k* of the n eigenvectors of the given matrix, 
and ‘the diagonal element A{k, k] of the array A is the corre- 
sponing kt» eigenvalue. The parameter rho is the ‘‘accuracy 
requirement” introduced in the above reference, where a de- 
tailed flow chart of the method is given. The significance of rhois 
that the iteration terminates when, for every off-diagonal ele- 
ment Ali, j],abs (A[i, j]) < (rho/n) X norm1, where norm] is a 
function only of the off-diagonal elements of the original matrix; 

begin. real norml, norm2, thr, mu, omega, sint, cost, intl, vl, 
v2, v3; 
integer i,j, p, q, ind; 


comment Set array S = n X n identity matrix; 


for i := 1 step 1 until n do 

for j := 1 step | until i do 
if i = j then S[i, j] := 1.0 
else Si, j] := S{j, i] := 0.0; 


comment Calculate initial norm (norm1), final norm (norm?2), 
and threshold (thr); 
intl := 0.0; 
for i :=2 step | until n do 
for } := step 1 until i—1 do 
intl := intl + 2.0 x Ali, j] fT 2; 


norml := sqrt (intl); norm2 := (rho/n) X norml; 
thr := norm]; ind := 0; 
main: thr := thr/n; 
comment The sweep through the off-diagonal elements be- 
gins here; 
mainl: for q := 2 step 1 until n do 


for p := 1 step 1 until q—1 do 
if abs (Alp, q]) 2 thr then 


begin ind := 1; vl := Alp, p]; v2 := Alp, q]; 
= Afq, q]; mu := 0.5 X (vl—v3); 
omega := (if mu = 0.0 then 1 else sign (mu)) X 


(—v2)/sqrt(v2T2 + muf2); 
sint := omega/sqrt(2.0 * (1.0 + sqrt(1.0 — 
omegat2))); 


cost := sqrt (1.0 — sintT2); 

for i := 1 step 1 until n do 

begin intl :~ Ali, p] X cost — Afi, q] X sint; 
Afi, q] := Ali, p] X sint + Afi, q] X cost; 
Afi, p] := intl; 
int! := S[i, p] X cost — S[i, q] X sint; 
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Sli, q] := Sfi, p] xX sint + Sli, q] x cost; 
Sli, p] := intl 
ends 
for i := step 1 until n do 


begin A[p,i] := Afi,p]; Alq,i] := Aliq] end; 
Alp, p] := vl X costt2 + v3 X sintT2 — 2.0 x 
v2 X sint X cost; 
Alq, q] := vl X sintf2 + v3 X costf2 + 2.0 x 
v2 X sint X cost; 


Alp, q] := Ala, p] := (vl — v3) X sint cost + 
v2 X (costt2 — sintT2) 
end; 


comment Now test to see if current tolerance exceeded and, 
if not, whether final tolerance reached; 
if ind = 1 then begin ind := 0; go to mainl end 
else if thr > norm2 then go to main 
end JACOBI 


CERTIFICATION OF ALGORITHM 85 
JACOBI [T. G. Evans, Comm. ACM, Apr. 1962] 
J. S. HittmMore 
Elliott Bros. (London) Ltd., 
England 
The statement 


omega := (if mu = 0.0 then 1 else sign (mu)) 
x (—V2)/sqri(V2 tT 2+mu fF 2); 


Borehamwood, Herts.,. 


was changed to 
omega := if mu = 0.0 then —1.0 else — sign (mu) 
x V2/sqrt (V2 T 2+mu Tf 2); 

When mu = 0, the original statement reduces to 

omega := —V2/sqrt (V2 T 2); 
and a truncation error in the evaluation of the square root can 
make the magnitude of omega slightly greater than unity. As a 
result, an error stop occurs during execution of the next statement 
when an attempt is made to evaluate sqrt (1 — omega 7 2). 

In its modified form the algorithm has been successfully run 
using the Elliott Atco translator on the National-Elliott 803. 
Matrices of order up to fifteen have been solved, yielding eigen- 
values and eigenvectors with an overall accuracy of seven decimal 
places. 
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JACOBI [Thomas G. Evans, Comm. ACM (Apr. 1962), 
208] 

P. Naur 

Regnecentralen, Copenhagen, Denmark 


We have first run this algorithm in the Gizr ALGoL system with 
the following corrections included: 

1. The change given by J. S. Hillmore [Comm. ACM 6 (Aug. 
1962), 440] with capital V changed to v. 
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2. The 4th for clause corrected to read: 
for j := 1 step 1 until 2 — I do 
3. The last for clause corrected to read: 


for 2 := 1 step 1 until n do 

On closer examination we have found, however, that a signifi- 
cant number of superfluous operations could be eliminated in the 
innermost loop by rewriting the two for statements at the center 
of the algorithm as a single for statement, to read as follows: 


cost := sqrt (l—sint fT 2); 
for 7 := 1 step 1 until n do 
begin if? # pA i qthen 
begin intl := A[i,p]; mu := Ali,q]; 
Allg] := Ald,g] := intl & sint + mu X cost; 
Alpi] := Alz,p] := intl & cost — mu + stint 
end; 
intl := Sli,p]; mu := S{t,q]; 
Sli,q] := intl X sint + mu X cost; 
S(t,p] := intl X cost — mu X stint 
end; 
Alp,p] := vl X cost T 2+038 X& sint Tf 2—2 XK 02 X stint X cost; 


This revision is particularly advantageous in systems having a 


comparatively slow subscript mechanism, such as Grer ALGOL, 


because it eliminates more than 3 out of 8 references to subseripted 
variables. 

JACOBI has been tried with two different sets of matrices hav- 
ing known eigenvalues. In both cases a test program was set up to 
find the range of errors of the eigenvalues computed by JACOBI. 
In addition, the relations Av — Av = 0 (Al is the given matrix, v 
an eigenvector, and) the corresponding eigenvalue) and A — (S7’) 
LAMBDA S = 0 (S is the matrix having the eigenvectors as col- 
umns and S7' its transpose, and LAMBDA is the diagonal matrix 
of the eigenvalues) were used as checks. The test matrices were 
TESTMATRIX calculated by the revised algorithm 52 given in 
Comm. ACM 6 (Jan. 1963), 39, and the following matrix suggested 
by Mr. H. B. Hansen: 


HBH TESTMATRIX [j,7] = HBH TESTMATRIX [z,7] 
=n+1—-j ee | 


having the cigenvalues 0.5/(1 — cos ((2Xi—1)X pi/(2Xn+1))). 
The results were as shown in Table 1 (Giger ALGouL works with 
floating numbers of 29 significant bits). 
The compile time for the program which produced one of these 
tables was about 40 seconds. Run times were as follows: 


Original algorithm Revised algo- 


TESTMATRIX ALG. 52 HBH rithn HBH 
; TESTMATRIX TESTMATRIX 
Rho n , (seconds) (seconds) 

10— 3 5 3 

10 22 

15 70 

107 5 5 3 5 

10 5 41 29 

15 13 148 99 

10-8 5 4 7 6 
6 5 12 
7 5 18 
8 5 25 

10 13 38 

15 22 116 
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.From these figures it looks as if TESTMATRIX, Algorithm 52, 
is atypical as far as solution by means of JACOBI is concerned. 
The much higher accuracy obtained for this matrix as compared 


_ with the HBH matrix points in the same direction. 


-For further comparison it may be mentioned that the algo- 
rithms published by J. H. Wilkinson [Vum. Math. 4 (1962), 354- 
376] also have been tested successfully with GiER ALGoL. Wilkin- 
son’s algorithms reduce the matrix to tridiagonal form by means 
of Householder’s method and use Sturm sequences to find the 


eigenvalues and inverse iteration to find the eigenvectors. In G1iER 


ALGOL this method is about 1.3 times as fast as JACOBI for the 
range of matrices considered here. JACOBI has the advantage 
that the eigenvectors are properly orthogonal, even in the case of 
multiple eigenvalues, and also has a much simpler logic. On the 
other hand if only some of the eigenvalues and/or eigenvectors are 
sought Wilkinson’s algorithms will often offer much higher speed 
than JACOBI, which always finds them all. 
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Range of true errors of eigenvalues 


Range of deviations from relation 
Av — lambda v = 0 


Range of deviations from relation 


A — (ST) LAMBDA S = 0 


Order j error(3] j error[j] ae Vector Error a Vector —_ Error ee Vector Error ee Vector — ‘Error 
rho = 1.019—3 
5 1 —1.1:0—-6 3 5.219—8 1 1 —1.710—4 1 3 2.010—4 1 1 —2.510—-4 5 5 1.010—4 
10 9 —7.910—5 8 3.519-5 | 7 2 —3.310-3 6 6 3.010—3 1 1 —4.219—-3 6 7 3.210—-3 
15 15 —9.2)9—5 12) 3.719-5 | 6 3 —1.710-3 11 «18 1.710—3 9 15 —1.510—-3 8 9 1.810—3 
rho = 1.019—5 
5 1 -—1L.1ip—6 3 6.010—8 2 5 —1.3:0—-7 5 2 4.1i9—8 1 2 —1.610—-7 4 5 4.5198 
10 1 —1.2:9—5 2 2.219—-7 7 3 —2.710—5 2 8 2.210-5 | 7 7 —2.4in—5 2 8 2.3810-5 
15 1 —83.519—5 4 3.91—7 | 11 9 —6.410-6 7 2 4.8:0-6/ 11 12 —5.310-6 12 12 4.719—6 
rho = 1.019—8 
5 1 —1.1i0—6 3 6.010—8 2 5 —1.310—-7 4 2 6.510—9 2 2 —1.819-7 4 4 3.010—8 
10 1 —1.2:9—5 2 2.2:9—7 1 10 —1.119—6 4 2 6.4108 1 2 —5.710-7 9 9 8.210—-8 
15 1 —3.5;0—5 4. 3.919-7 1 14 —3.410—-6 4 2 3.910—-7 2 2 —1.310-—6 15 15 8.9198 
TESTMATRIX, Algorithm 52 
Range of true errors of eigenvalues Panes wea beare ay relation Range of deviations head ae 
Order j error{j] j error[j] ree Vector Error ae Vector Errer one Vector Error gic Vector Error 
rho = 1.0i9—5 
5 4  —1.0:o—8 1 .0 5 5 —3.310—8 5 4 4.310—8 5 5 —5.110—-8 4 4 3.910—-8 
10 8 —1.10—8 4 .0 7 7 —1.210—8 9 6 1.310-8 | 7 8 —5.1io—9 6 6 2.019 -—8 
15 18 —1.1-8 6 .0 | 14 «14 —9.3;0-—9 10 10 9.410—9 8 9 —1.910—9 10 10 1.310-8 
rho = 1.019—8 
3 3 —7.5;0—-9 1 3.719—-9 3 1 —2.810—9 2 2 9.310—9 1 3 .0 1 2 1.9108 
4 4 —5.6:0—9 3 .0 2 2 —4.510-9 3 4 3.310—9 2 2 0 2 3 9.310—-9 
5 4 —1.0i:9—-8 1 .0 5 4 —4.910-9 4 4 5.810-9 | 1 1 —7.510-9 3 4 7.510-9 
6 4 —4.719-9 4 .0 4 3 —2.810—-9 5 4 3.610-9 1 6 —2.310—10 4 5 9.3109 
7 4 —65.1i9—9 5 .0 6 6 —2.810—-9 4 4 3.410-9 5 7 —1.2:9—10 5 6 7.510-9 
8 7 —7.5:0—-9 5 0 5 5 —6.010-9 5 6 3.210—-9 8 8 —1.219—10 7 7 9.3199 
9 6 —4.419—-9 7 0 6 5 —5.1in—9 7 6 3.210—-9 5 5 —7.510—-9 8 8 1.519—8 
10 8 —1.519—8 8 .0 8 9 —9.310-9 9 7 7.2109 6 7 —2.310—-9 9 9 2.010—-8 
11 10 —7.51:0—-9 1 .0 9 10 —6.510—9 8 11 3.010—9 1 1 —3.110—-9 8 8 7.510—9 
12 8 —5.010—-9 11 .0 10 6 —7.610—9 10 8 2.410—-9 6 6 —1.710—8 4 4 1.310—8 
13 120 —1.119—8 10 .0 10. «sl —6.910-9 12 10 9.1li0—9 i 7 —3.010—8 12 12 38.210—-8 
14 10 —1.510—-8 4 0 13 13 —1.1li0—-8 10 10 6.71%-9; 9 10 —3.519—-9 6 6 1.710—-8 
15 = 1380 —1. 1-8 6 .0 14 «+14 —1.110—8 11 10 8 3.519-9 | 8 9 —3.010—9 6 11 7.515—-9 
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ALGORITHM 86 

PERMUTE 

J. E. L. Peck anp G. F. Scurack 

University of Alberta, Calgary, Alberta, Canada 


procedure PERMUTE (x, n); 
array X; integer n; 
comment Lach call of PERMUTE executes a permutation of 
the first n components of x. It assumes a nonlocal Boolean 
variable ‘first’, which when true causes the procedure to initial - 
ise the signature vector p. Thereafter ‘first’ remains false until 
after n! calls; 
begin own integer array p(2:n]; integer i, k; 
if first then 
begin for i := 2 step 1 until n do 
pli] := i; first := false 
end initialise; 
for k := 2 step 1 until n do 
begin integer KM; real t; 
t := xflj; km:=k—1; 
for i := 1 step 1 until km do 
x{i] := xfi-+1]; 
x[k] := t; plk] := p[k] — 1; 
if p[k] ~ 0 then go to EXIT; 
p(k] := k 
end k; 
first := true; 


EXIT: end PERMUTE 
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PERMUTE [J. E. L. Peck and G. F. Schrock, Comm. 
ACM, Apr. 1962] 

D. M. Co tuison 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 
The algorithm was successfully run using the Elliott ALGoL 


translator on the National-Elliott 803. Values of n used were 0, 1, 
2,3, 4. 
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ALGORITHM 87 
PERMUTATION GENERATOR 
JoHn R. Howe 


Orlando Aerospace Division, Martin Marietta Corp., 
Orlando, Florida 


procedure PERMUTATION (N, K); 

value K,N; integer K; integer array N; 

comment This procedure generates the next permutation in 
lexicographic order from a given permutation of the K marks 
0, 1,--- , (K—1) by the repeated addition of (K—1) radix K. 
The radix K arithmetic is simulated by the addition of 9 radix 
10 and a test to determine if the sum consists of only the original 
K digits. Before each entry into the procedure the K marks 
are assumed to have been previously specified either by input 
data or as the result of a previous entry. Upon each such entry a 
new permutation is stored in N[{1] through N[K]. In case the 
given permutation is (K—1), (K—2), --- , 1, 0, then the next 
permutation is taken to be 0, 1,---, (K — 1). A Fortran 
subroutine for the IBM 7090 has been written and tested for 
several examples; 

begin integer i, j, carry; 


for i := 1 step 1 until K do 
if N[i] — K + i # 0 then go to add; 
for i := 1 step 1 until K do N{i] := i — 1; 
go to exit; 
add: N{K] := N[K] + 9; 
for i := 1 step 1 until K—1 do 


begin if K > 10 then go to B; 
carry := N(K—i+1]+10; gotoC; 
B: carry := N(K—i+1]+K; 
C: if carry = 0 then go to test; 
N[K—i] := N{K—i] + carry; 
N[K—i+1] := N({K—i+1] —10 X carry 
end i; 
test: for i := 1 step 1 until K do if N{i} — (K — 1) >0 
then go to add; 
for i := 1 step 1 until K—1 do 
for } := i+1 step 1 until K do 
if N[i]—N[j] = 0 then go to add; 
exit:’ end PERMUTATION GENERATOR 
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PERMUTATION GENERATOR [John R. 
Comm. ACM, Apr. 1962] 

D. M. CoLiison 

Elliott Bros. (London) ILtd., Borehamwood, Herts., 
Kngland 


Howell, 


The array N was removed from the value list in order that the 
permutations might be available outside the procedure. The 
algorithm was then run successfully with the Elliott ALGoL trans- 
lator on the National-Hiott 803. It was rather slower than 
Algorithm 8&6. 
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PERMUTATION GENERATOR [John 
Comm. ACM (Apr. 1962)| 

G. F. Scurack and M. Suimrat 

University of Alberta, Calgary, Alb., Canada 
PERMUTATION GENERATOR was translated into FoRTRAN 

for the IBM 1620 and it performed satisfactorily. The algorithm 

was timed for several small values of n. For purposes of comparison 

we include the times un seconds) for PERMULEX (Algorithm 

102). 


R. Howell, 


n 3 4 5 6 7 


PERMUTAT ION GENERATOR |; 3 41 558 — — 
PERMULEX | — 3 6, 37 278 


As can be seen from this table, PERMUTATION GENERATOR is 
considerably slower. It is probable that one could speed up 
PERMUTATION GENERATOR to a great extent by rearranging 
the algorithm in such a manner that the digits of a number to a 
certain base are permuted rather than the elements of a sequence. 


REMARKS ON: 


ALGORITHM 87 [G6] 

PERMUTATION GENERATOR 
[John R. Howell, Comm. ACM 6 (Apr. 1962), 209] 

ALGORITHM 102 [G6] 

PERMUTATION IN LEXICOGRAPHICAL ORDER 
[G. F. Schrak and M. Shimrat, Comm. ACM & (June 
(1962), 346] 

ALGORITHM 130 [G6]. 

PERMUTE . 
[Lt. B. C. Eaves, Comm. ACM 5 (Nov. 1962), 551] 

ALGORITHM 202 [G6] 

GENERATION OF PERMUTATIONS IN 

LEXICOGRAPHICAL ORDER 
[Mok-Kong Shen, Comm. ACM 6 (Sept. 1963), 517] 


R. J. Onp-SmitH (Recd. 11 Nov. 1966, 28 Dec. 1966 and 
17 Mar. 1967) 
Computing Laboratory, University of Bradford, Englan?’ 


A comparison of the published algorithms which seek to genera‘. 
successive permutations in lexicographic order shows that Algo- 
rithm 202 is the most efficient. Since, however, it is more than twice 
as slow as transposition Algorithm 115 [H. F. Trotter, Perm, 
Comm. ACM 6& (Aug. 1962), 434], there appears to be room for im- 
provement. Theoretically a ‘‘best’’ lexicographic algorithm 
should be about one and a half times slower than Algorithm 115. 
See Algorithm 308 [R. J. Ord-Smith, Generation of Permutations 
in Pseudo-Lexicographic Order, Comm. ACM 10 (July 1967), 452} 
which is twice as fast as Algorithm 202. 
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ALGORITHM 87 is very slow. 
ALGORITHM 102 shows a marked: improvement. 


ALGORITHM 130 does not appear to have been certified before. 
We find that, certainly for some forms of vector to be permuted, 
the algorithm can fail. The reason is as follows. 


At execution of A[f] := 7; on line prior to that labeled schell, f 
has not necessarily been assigned a value. f has a value if, and 
only if, the Boolean expression B[k] > 0 (A Bik] < Bl[m] is true for 
at least one of the relevant values of k. In particular when matrix 
A is set up by A[i] := 2; for each z the Boolean expression above is 
false on the first call. 


ALGORITHM 202 is the best and fastest algorithm of the 
exicographic set so far published. 


A collected comparison of these algorithms is given in Table I. 
tn is the time for complete generation of n! permutations. Times 
are scaled relative to ¢s for Algorithm 202, which is set at 100. 
Tests were made on an ICT 1905 computer. The actual time és 
for Algorithm 202 on this machine was 100 seconds. r, has the 
usual definition rz = tn/(n-tr-). 


TABLE I 
Algorithm te ty tg 6 | .¢7 | re 
87 | 118 a) es ee ee = 
102 2.1 15.5 135 1.03 1.08 1.1 
130 = ee a rie = a 


202 1.7 12.4 100 1.00 1.00 1.00 
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ALGORITHM 88 

EVALUATION OF ASYMPTOTIC EXPRESSION 
FOR THE FRESNEL SINE AND COSINE INTE- 
GRALS 

Joun L. CunpIFF 

Engineering Experiment Station, Georgia Institute of 
Technology, Atlanta, Ga. 


real procedure FRESNEL (u) Result: 
(u); 

comment This procedure evaluates the Fresnel sine and cosine 
Integrals for large u by expanding the anymptotic series given 


(freos, frsin); value 


by 
1 cos (x) 1-3 1:3°5°7 
Stu) =- — ee eh ee i ee os ed 
0 8 Ne ar * “(any | 
_sin@) PL 185 1879 
a/2nn | 2 (2x)3 (Q2)8 
and 
1 sin (2) [ 1-3 1-3°5-+7 
Clu) = = -— 1- ee tek 
un} V 2rx | (2x)? “ (2x)¢ | 


_ cos (x) | i - 1-3°5 a 1-3-5-7°9 
V/2nr| 2a (2x)8 (2x)* 
in which x = ru?/2. Reference: Pearcey,T. Table of the Fresnel 


Integral to Six Decimal Places. The Syndics of the Cambridge 
University Press, Melbourne, Australia (1956).; 


begin pi := 3.14159265; arg := pi X (uft2)/2; temp := 1; 
argsq := 1/(4 X (arg?2)); term := —3 X argsq; 
series := 1+ term; N := 3; 
first: if temp = series then go to second; temp := series; 
termi := term; 
term := —termi X (4 N —7) X (4XN — 5) X (argsq); 
if abs(term) > abs(termi) then go to second; 
series := temp + term; N := N+1; go to first; 
second: series? := 4 X arg; temp := 0; term := series2; 
N := 2; 
loop: if series2 = temp then go to exit; termi := term; 
term := —termi X argsq X (4XN—5) X (4XN-83); 
if abs(term) > abs(termi) then go to exit; 
temp := series2; series2 := temp + term; 
N := N+1; go to loop; 
exit: if u < 0 then half := —}4 else half := 4; 
freos := half + (sin(arg) X series — cos(arg) + series2)/ 
(pi X u); 
frsin := half — (cos(arg) X series2 + sin(arg) X series) / 
(pi X u) 


end FRESNEL; 
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REMARK ON ALGORITHMS 88, 89 AND 90 

EVALUATION OF THE FRESNEL INTEGRALS 
[J. L. Cundiff, Comm. ACM, May 1962] 

Matcotm D. Gray 

The Boeing Co., Seattle, Wash. 


While coding these algorithms in Fortran for the IBM 7094, 
modifications were required (both in the formulation and in the 
language) before execution with any degree of speed and accuracy 
could be obtained. In the process it was found that the reference, 
Pearcy, contains an error in the formula for C(u). This error is 
contained in Algorithm 88 in the formula 


The first minus sign above should be a plus sign. 

After the necessary modifications were made, the three al- 
gorithms were found to be too large and uneconomical for our 
usage. A single algorithm, incorporating these three procedures, 
was written and is in current usage in a computer program which 
requires several thousand evaluations of each Fresnel integral. 
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ALGORITHM 89 

EVALUATION OF THE FRESNEL SINE INTEGRAL 

Joun L. CunpiFF 

Engineering Experiment Station, Georgia Institute of 
Technology, Atlanta, Ga. 


real procedure FRESNELSIN (u) Result: (frsin); value u; 
comment This algorithm computes the Fresnel sine integral 
defined by, 


uU 
Sj [ sin xf?/2 dt, 
0 


by evaluating the series expansion 


8 5 7 
sm = ,/eft_@ 4 ta, 
aE 731? il 16717 


where x = ru?/2. Reference: Pearcey, T. Table of the 
Fresnel Integral to Six Decimal Places. The Syndics of the 
Cambridge University Press, Melbourne, Australia (1956).; 
begin Pi2 := 1.5707963; x := Pi2 x (uf?2); frsin := x/3; 
frsqr := xf2; N := 3; term := (—x X frsqr)/6; 
frsini := frsin + term/7; 
Loop: if frsin = frsini then go to exit; frsin := frsini; 
term := —term X frsqr/((2XN—1) X (2XN-—2)); 
frsini := frsin + term/(4XN—1); N := N +1; 
go to Loop; 
exit: frsin := frsini < u 
end FRESNELSIN; 


' REMARK ON ALGORITHMS 88, 89 AND 90 

EVALUATION OF THE FRESNEL INTEGRALS 
[{J. L. Cundiff, Comm. ACM, May 1962] 

Matcotm D. Gray 

The Boeing Co., Seattle, Wash. 


While coding these algorithms in Fortran for the IBM 7094, 
modifications were required (both in the formulation and in the 
language) before execution with any degree of speed and accuracy 
could be obtained. In the process it was found that the reference, 
Pearcy, contains an error in the formula for C(u). This error is 
contained in Algorithm 88 in the formula 


Clu) = 5 - mn) 


The first minus sign above should be a plus sign. 

After the necessary modifications were made, the three al- 
gorithms were found to be too large and uneconomical for our 
usage. A single algorithm, incorporating these three procedures, 
was written and is in current usage in a computer program which 
requires several thousand evaluations of each Fresnel integral. 
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ALGORITHM 90 

EVALUATION OF THE FRESNEL COSINE INTE- 
GRAL 

Joun L, CunpirF 

Engineering Experiment Station, Georgia Institute of 
Technology, Atlanta, Ga. 


real procedure FRESNELCOS (u) result: (freos); value (u); 
comment This algorithm computes the Fresnel cosine integral 
defined by 


bi rt? 
Clu) = [ cos — dt, 
0 2 


by evaluating the series expansion 


ral x x x 
Ca) Sf PET Se ee es 
. | B21 ai Belt |: 


where z = ru?/2. Reference: Prarcey, T. Table of the Fresnel 
Integral to Six Decimal Places. The Syndics of the Cambridge 
University Press, Melbourne, Australia (1956).; 


begin pi2 := 1.5707963; x := pi2 X (uf2); freos := 1; 
xsqr := x72; N := 3; term := —xsqr/2; 
frecoi := 1 + (term/5); 

loop: if freoi =.frcos then go to exit; term := —term X 
xsqr/((2XN—2 X (2XN-—8)); freos := freoi; freoi := 
freos + term/(4XN—3); N := N + 1; go to loop: 

exits: freos := u X frcos 

end FRESNELCOS; 


REMARK ON ALGORITHMS 88, 89 AND 90 

EVALUATION OF THE FRESNEL INTEGRALS 
[J. L. Cundiff, Comm. ACM, May 1962] 

Matucomm D. Gray 

The Boeing Co., Seattle, Wash. 


While coding these algorithms in Fortran for the IBM 7094, 
modifications were required (both in the formulation and in the 
language) before execution with any degree of speed and accuracy 
could be obtained. In the process it was found that the reference, 
Pearcy, contains an error in the formula for C(u). This error is 
contained in Algorithm 88 in the formula 

1 sin (x) 
The first minus sign above should be a plus sign. 

After the necessary modifications were made, the three al- 
gorithms were found to be too large and uneconomical for our 
usage. A single algorithm, incorporating these three procedures, 
was written and is in current usage in a computer program which 
requires several thousand evaluations of each Fresnel integral. 


(a eee 


90-P 1- 


0 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 91 

CHEBYSHEV CURVE-FIT 

ALBERT NEWHOUSE 

University of Houston, Houston, Texas 


procedure CHEBFIT(m, n, X, Y); integerm,n; array X, Y; 
comment This procedure fits the tabular function Y(X) (given 


as m points (X, Y)) by a polynomial P = >. A; X*. This 
t=O 


polynomial is the best polynomial approximation of Y(X) in 
the Chebyshev sense. Reference: Stieret, E. Numerical 
Methods of Tchebycheff Approximation, U. of Wisc. Press (1959), 
217-232; 
begin array X[l:m], Y[1:m], T[1:m], A[O:n], AX[1:n+2], 
AY[1:n+2], AH[1:n+2], BY[1:n+2], BH[l:n+2); 
integer array IN [l1:n+2]; real TMAX, H; integer i, 
j, k, imax; 
comment Initialize; 
k := (m—1)/(n+1); 
for 1 := 1 step 1 until n+1 do IN [i] := G—-1)xk +1; 
IN[n+2] := m; 
START: comment Iteration begins; 
for i := 1 step 1 until n+2 do 
begin AX[i] := X{IN{i]]; 
AY{fi] := Y[IN[i]]; 
AH[i] := (—1) f G-1) 
end i; 
DIFFERENCE: comment divided differences; 
for 1 := 2 step 1 until n+2 do 
begin 
for.j := i—1 step 1 until n+2 do 
begin BY[j] := AYT[jJ; 
BH{j] := AHf{j] 


end }j; 


for j] := istep 1 until n+2 do 
begin AY[j] := (BY[j] —BY[j—1])/ 
(AXGj] —AXGj—i+1); 
AH{j] := (BH[j] —BH[j—1))/ 
(AX{j] —AX[j-i+1)]) 
end j; 
end i; 
H := —AY(n+2]/AH[n+2]; 
POLY: comment polynomial coefficients; 
for i := 0 step 1 until n do 
begin A[i] := AY[i] +AH[i] XH; 
BY{i] := 0 
end i; 
BY[l] := 1; TMAX := abs(H); 
for i := 1 step 1 until n do 
begin 
for j := 0 step 1 until i—1 do 
begin 
BY[i+1—j] := BY[i+1-—j] —BY[i—j] <x X[IN[i]]; 
Ajj] := Alj] +Ali] XBY[i+1—-j] 
end j; 
end i; 
ERROR: comment compute deviations; 
for i := 1 step 1 until m do 
begin T{i] := Aln]; 


imax := IN{I}; 
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for j := O step 1 until n do T[i] := Tfi] Xfi] +A{n—j]; 
Thi] := Th] —Yfi]; 

if abs(T[i]) < TMAX then go to L1; 

TMAX := abs(TIi]); 


imax := i 
Li: end i; 
for i := 1 step 1 until n+2 do 
begin 


if imax < IN{i] then go to L2; 
if imax = IN[i] then go to FIT end 
end i; 
L2: if T{imax] X T[IN[i]] < 0 then go to L3; 
IN[i] := imax; 
go to START; 
L3: if IN[1] < imax then go to L4; 
for i := 1 step 1 until n+1 do IN[n+3—i] := IN[n+2—-i]; 
IN [i] := imax; 
go to START; 
L4: if IN{n+2] < imax then go to L5; 
IN[i—2] := imax; 
go to START; 
L5: fori := 1 step 1 until n+1 do IN{ij] := IN[i+1]; 
IN[n+2] := imax; 
go to START; 


FIT: end CHEBFIT 


CERTIFICATION OF ALGORITHM 91 
CHEBYSHEV CURVEFIT [A. Newhouse, Comm. 
ACM, May 1962] 
Rosert P. Hae 
University of Adelaide, Adelaide, South Australia 
The CHEBFIT algorithm was translated into Fortran and 
successfully run on an IBM 1620 when the following alterations 
were made: 
(a) 2nd line after 
comment Initialize; 
should read 
for i := 1 step 1 until n+1 do JN[i]:= G@-1) Xk4+1; 
(b) 2nd and 3rd lines after 
Poly: comment polynomial coefficients; 
should read 
begin Afi] := AY[¢+1] + AH[i+1]) xX H; BY{i+1]):=0 


REMARKS ON ALGORITHM 91 
CHEBYSHEV CURVE FIT [A. Newhouse, 
ACM 6 (May 1962), 281; 6 (April 1963), 167] 
PETER Naur (Recd. 27 Sept. 1963) 
Regnecentralen, Copenhagen, Denmark 


Comm. 


In addition to the corrections noted by R. P. Hale [op. cit., 
April 1963] the following are necessary: 

1. The arrays X, Y, and A cannot be declared to be local within 
the procedure body. 

2. The identifier A must be included as a formal parameter. 


COLLECTED ALGORITHMS (cont.) 


3. It should be noted that the X[z] must form a monotonic 
sequence. 

4. comment cannot follow the colon following a label. This 
occurs in four places. 

5. The end following go to FIT must be removed. 

In addition, a large number of details can be made more concise 
and unnecessary opcrations can be eliminated. Also, it seems 
desirable to produce the maximum deviation as a result. 


CERTIFICATION OF ALGORITHM 91 [E2] 

CHEBYSHEV CURVE-FIT [Albert Newhouse Comm. 
ACM 6 (May 1962), 281; 6 (April 1963), 167; 7 (May 

- 1964), 296] 

J. BootHroyp (Recd. 15 May 1967 and 5 Sept. 1967) 

University of Tasmania, Hobart, Tasmania, Australia. 


In addition to the corrections noted by R. P. Hale [op. crr., 
April 1963] and P. Naur [op. crr., May 1964], the following changes 
are necessary: 

1. The first statement should be k := entier((m—1)/(n+1)) 

2. A semi-colon should precede label 1. 

With these changes the procedure ran successfully using Elliott 
503 ALGOL.’ 

Although this procedure is an implementation of a finite algo- 
rithm, roundoff errors may give rise to cyclic changes of the 
reference set causing the procedure to fail to terminate. 

Algorithm 318 [J. Boothroyd, Chebyshev Curve-Fit(Revised), 
Comm.ACM 10 (Dec. 1967), 801] avoids this cycling difficulty, uses 
less than half the auxiliary array space of Algorithm 91 and, on 
test, appears to be at least four times as fast. 
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ALGORITHM 92 

SIMULTANEOUS SYSTEM OF EQUATIONS AND 
MATRIX INVERSION ROUTINE 

DrEREK JOHANN ROEK 

Applied Physics Laboratory of Johns Hopkins University, 
Silver Spring, Maryland 

procedure SIMULTANEOUS (U, W, C, X, B, n, kount, eps, 
absf)  ; 

array U, W,C, X,B ; integer n, kount 
real eps; real procedure absf; 


comment This procedure solves the problem Ux := b for the 
vector x, It assumes the problem written in the form x’U’ := b’, 


? 


where ’ denotes transpose. The procedure is completed in n | 


cycles and may be iterated kount times (kount S 6). The trans- 
pose of U is in U[,] and the row vector b’ is in B. The integer n 
is the dimension of U, and the solution row vector x’ is in X. 
The matrix C is a check of accuracy. It should have b’ in its 
first row, the first element b: of b’ along its main diagonal, 
and zeros elsewhere. The real number eps checks to see how close 
the actual result is to this theoretical one. Also if we let b’ := 
(1, 0, --- , 0), then this procedure finds the inverse W[(,] of U. 
The function absf finds the absolute value of its argument. The 
procedure chooses the column vectors of U as the row vectors of 
W in the 0¢* cycle of the first iteration. For all subsequent itera- 
tions, the row vectors of W, computed at the n*» cycle of the 
last iteration, are the row vectors of W in the 0¢* cycle 
begin integer i, j,k, p ;_ real bh, bl, Z ; 
for j := 1 step 1 until n do 
for i := 1 step 1 until n do W{j, i] := U[i, J); 
Sl: for} := 1 step 1 until n do 
for i := 1 step 1 until n do Chi, j] := 0; 
for ] := 1 step 1 until n do 
begin for k := 1 step 1 until n do 
begin C[j, j] := Clj, j] + Wl, k] x Ulk, j] end; 
if j = 1 then Z := B[j]/Clj, j] else Z := 1/C[j, j]; 
for k := 1 step 1 until n do 
begin X[k] := Z * W\{j, k]; 
Wij, k] := X[k] 
end k; 
for k := 1 step 1 until n do 
begin if k = j then go to 82 else 
for p := 1 step 1 until n do 
C[k, j] := Clk, j] + Ulp, j] X Wik, pl; 
if } = 1 then bh := B[j] else bh := 1; 
if k = 1 then bl := B[j] else bl := 0; 
for p := 1 step 1 until n do 
begin X[p] := bh X W[k, p] + (bl — Clk, j]) x 


? 


Wii, pl; 
Wik, p] := X[p] 
end p; 
82: . ifk = j Aj = n then go to 83 
end k; 
end j; 


S83: for j := step 1 until n do 
if absf (absf(C{j, j]) — absf(B[1])) > epsthen go Lo 54; 
go to 86; 
$4: if kount > 0 then go to S5 else go to 86; 
S5: kount := kount — 1; 
go to Sl]; 


S6: 


S7: 


for j := step 1 until n do 
Xfj] := WH, i]; | 
end SIMULTANEOUS 
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ALGORITHM 93 

GENERAL ORDER ARITHMETIC 
Minuarp H. PERSTEIN 

Control Data Corp., Palo Alto, Calif. 


procedure arithmetic (a, b, c, op); 

integer a,b, c, op; 

comment This procedure will perform different order arithmetic 
operations with b and c, putting the result in a. The order of the 
operation is given by op. For op = 1 addition is performed. For 
op = 2 multiplication, repeated addition, is done. Beyond these 
the operations are non-commutative. For op = 3 exponentiation, 
repeated multiplication, is done, raising b to the power c. Beyond 
these the question of grouping is important. The innermost 
implied parentheses are at the right. The hyper-exponent is 
always c. For op = 4 tetration, repeated exponentiation, is 
done. For op = 5,6,7, etc., the procedure performs pentation, 
hexation, heptation, etc., respectively. 

The routine was originally programmed in Fortran for the 
Control Data 160 desk-size computer. The original program 
was limited to tetration because subroutine recursiveness in 
Control Data 160 Fortran has been held down to four levels in 
the interests of economy. 

The input parameter, 6, c, and op, must be positive integers, 
not zero; 

begin own integer d, e, f, drop; 
if op = 1 then 
begina :=b+e; gotol 
end if op = 2 then d := 0; 
elsed :=1; e:=c;drop := op — 1; 
for f := 1 step 1 untiledo 
begin arithmetic (a, b, d, drop); 
d:=a 
end; 
L: end arithmetic 


CERTIFICATION OF ALGORITHM 93 

GENERAL ORDER ARITHMETIC [Millard H. Per- 
stein, Comm. ACM (June 1962)] 

RICHARD GEORGE 

Particle Accelerator Div. Argonne National Laboratory, 

Argonne, Ill. 

Algorithm 93 was programmed for the IBM 1620, using 
“FORTRAN-recursion”’ (i.e., generous use of the copy rule). The 
program ran without any modifications and was tested through 
tetration. Further levels were available, but were too time- 
consuming to reach. 
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ALGORITHM 94 

COMBINATION 

JEROME KURTZBERG 

Burroughs Corp., Burroughs Laboratories, Paoli, Pa. 


procedure COMBINATION (J,N,K); value N,K; integer 
array J; integer N, K; 
comment This procedure generates the next combination of N 


integers taken K at a time upon being given N, K and the pre- 
vious combination. The K: integers in the vector J(1) --- J(K) 
range in value from 0 to N — 1, and are always monotonically 
strictly increasing with respect to themselves in input and 


output format. If the vector J is set equal to zero, the first- 


combination produced is N—K, ---,N—1. That initial combina- 
tion is also produced after 0,1, --- , N—1, the last value in that 
cycle; 

begin integer B, L; 


B := 1: 
if J(B)2B then begin A := J(B) — B—1; 
for L := 1 step 1 until B do J(L) := L+ A; 
go to exit end; 
if B = K then go to initiate; 
B := B + 1; go to mainbody; 
for B := 1 step1 until KdoJ(B) :=N-—K-—-1+B 
end COMBINATION 


mainbody: 


initiate: 
exit: 


CERTIFICATION OF ALGORITHM 94 
COMBINATION [J. Kurtzberg, Comm. ACM, June 1962] 
Ronatp W.'May 

University of Alberta, Calgary, Alberta, Canada 


Algorithm 94 was translated into Fortran for the IBM 1620 
and run successfully with no corrections. The variable A, how- 
ever, has not been declared. 


CERTIFICATION OF ALGORITHM 94 
COMBINATION [J. Kurtzburg, Comm. ACM, June, 
1962] 
R. E. Grencu* 
Reactor Eng. Div., 
Argonne, Ill. 
* Work supported by U.S. Atomic Energy Commission 
Four changes were required in the algorithm. 

1. The last sentence in the comment should read: That initial 
combination is also produced after 0,1, ++: , K—1, the last 
value in that cycle; 

2. The integer A was declared; 

3. Parentheses were replaced by brackets in the subscript ex- 
pressions; 

4. A semicolon was inserted at the end of the initiate statement. 

After the above changes were made the body of Algorithm 94 
was tested on an LGP-30 computer using the Dartmouth College 

Aue@ou-30 translator. The body tested satisfactorily and the time 

required to generate one J when K = 5 and N = 15 was 30 seconds. 

Various tests should be included if this algorithm is to be used 
as a procedure. These tests might include a statement to check if 


Argonne National Laboratory, 
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K& > N and if the initial value of J is correct These two possi- 
bilities were investigated and it was found that improper J’s are 
generated. 
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ALGORITHM 95 

GENERATION OF PARTITIONS IN PART-COUNT 
FORM 

FRANK STOCKMAL 

System Development Corp., Santa Monica, Calif. 


procedure partgen(c,N,K,G); integer N,K; integer array c; 
Boolean G; , 

comment This procedure operates on a given partition of the 
positive integer N into parts S$ K, to produce a consequent 
partition if one exists. Each partition is represented by the 
integers c[1] thru c[K], where c[j] is the number of parts of the 
partition equal to the integer j. If entry is made with G = false, 
procedure ignores the input array c, sets G = true, and pro- 
duces the first partition of N ones. Upon each successive entry 
with G = true, a consequent partition is stored in c[1] thru c[K]. 
For N = KX, the final partition is c[K] = X. For N = KX-++, 
1 sr sz K-14, final partition is c[K] = X, c[r] = 1. When entry 
is made with array c = final partition, c is left unchanged and G 
is reset to false; 

begin integer a,i,j; 

if — G then go to first; 


) := 2; 
a:= C[l]; 
test: ifa <j then go to B; 
e(j}] := 1+ ef]; 
e{1] := a —j; 
zero: fori := 2 step 1 until j — 1 
do cfi] := 0; 
go to EXIT; 
B: if j = K then go to last; 
a:=a+t]j X efj]; 
pia 15 
go to test; 
first: G := true; 
c[l] := N; 
j:= K+1; 


go to zero; 
last: G := false; 
EXIT: end partgen 
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ALGORITHM 96 

ANCESTOR 

Rosert W. FLoyp 

Armour Research Foundation, Chicago, Il 


procedure ancestor (m, n); value n; integer n; Boolean 
array m3 

comment Initially m [i, j] is true if individual 7 is a parent of 
individual 7. At completion, m [z, j] is true if individual 7 is an 
ancestor of individual j. That is, at completion m[i, j] is true 
if there are k, /, etc. such that initially m[z, k], mlk, U], «++, m[p, 7] 
are all true. Reference: WARSHALL, 8S. A theorem on Boolean 
matrices, J/.ACM 9(1962), 11-12; 

begin 

imteger i, j, k; 

for i := 1 step 1 until n do 

for ] := 1 step 1 until n do 

if m [j, i] then 

for k := 1 step 1 until n do 

if m [i, k] then 

m [j, k] := true 

end ancestor 


JERTIFICATION OF ALGORITHM 96 
ANCESTOR [Robert W. Floyd, Comm. ACM, June, 1962] 
Henry C. THAcuHER, Jr.* 

Argonne National Laboratory, Argonne, II. 


* Work supported by the U.S. Atomic Energy Commission 


The body of this procedure was tested on the LGP-30 using the 
Dartmouth translator. After inclosing conditional statements in 
begin end brackets (apparently necessary for this translator), 
the procedure operated satisfactorily for the following matrices: 


n=5, Time: 8'15” 


FTTFF FTTTT 
FFFFT FFFFT 
FFFTF — FFFTT 
FFFFT FFFFT 
FFFFF FFFFF 
n = 6, Time: 13/15” 
FTTFFF FTTTTT 
FFFTFF FFFTFT 
FFFFTF — FFFTFT 
FFFFFT FFFFFT 
FFFFFF FFFFFF 
n = 9, Time 31/2” 
FTTFFFFFF FTTTTTTTT 
FFFFTFFFF FFFFTTTTF 
FFFTTFFFF FFFTTTTTT 
FFFFFFFFT FFFFFTTTT 
FFFFFTTFF FFFFFTTTF 
FFFFFFFTF FFFFFFFTF 
FFFFFFFTF FFFFFFFTF 
FFFFFFFFF FFFFFFFFF 
FRFFFFTTFF FFFFFTTTF 
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The correctness of these results was confirmed by inspection 
of the network diagrams. 
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ALGORITHM 97 

SHORTEST PATH 

-Rospert W. Fioyp 

Armour Research Foundation, Chicago, II. 


procedure shortest path (m,n); valuen; integern; array m; 

comment Initially mi, 7] is the length of a direct link from 
point 7 of a network to point j. If no direct link exists, m [7, j] is 
initially 10, At completion, m [i, j] is the length of the shortest 
path from i to j. If none exists, m [i, j] is 1010. Reference: WaR- 
SHALL, S. A theorem on Boolean matrices. J, ACM 9(1962), 11-12; 

begin 

integer i,j,k; real inf, s; inf := 010; 

. fori := 1 step 1 until n do 

for] := 1 step 1 until n do 

if m [j,i] < inf then 

for k := 1 step 1 until n do 

if m fi, k] < inf then 

begin s := m {j, il + m [i, k]; 

ifs < _m [j, k] then m [j, k] :=s 

end 

end shortest path 
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ALGORITHM 98 “s 

EVALUATION OF DEFINITE COMPLEX LINE 
INTEGRALS 

JOHN L. PFALTZ 

Syracuse University Computing Center, Syracuse, WN. Y. 


procedure COMPLINEINTGRL(A, B, N, RSSUM); 
value A, B,N; real A,B,N; array RSSUM; 
comment COMPLINEINTGRL approximates the complex line 
integral by evaluating the partial Riemann-Stieltjes sum 
Dots f(zx) [22 — 204] where a St S band z € (2:4, 2,). The 
programmer must provide 1) the procedures GAMMA(T, Z) to 
calculate z(t) on T, and FUNCT(Z, F) to calculate function 
values, and 2) the end points A and B of the parametric interval 
and N the number of subintervals into which [a, 6] is to be 
partitioned; 
begin integer I; real T, DELT; real array ZT, ZTL, DELZ, 
ZK, PART[1:2]; RSSUM[1] := 0.0; RSSUM[2] := 0.0; 
DELT := (B — A)/N;T := A; 
line: GAMMA(T, ZT); 
if T = A then go to next; 
for I := + step 1 until 2 do 
begin 
DELZ[I] := ZT{I] — ZTL[U; end; 
for I := 1 step 1 until 2 do 
begin 
ZK{I] := ZTL{I] + DELZ[I]/2.0; end; 
FUNCT(ZK, FZ); 
PART[I] := FZ[1] X DELZ[1] — FZ[2] x DELZ[2]; 
PART[2] := FZ[1] X DELZ[2] + FZ[2] x DELZ[1]; 
for I := 1 step 1 until 2 do 
begin 
RSSUMI]] := RSSUM[I] + PART{I]; end; 
if T < B — (0.25 X DELT) then go to next else go to 
exit; 
next: for I := 1 step 1 until 2 do 
begin 
ZTUI] := ZT[I]; end; 
T := T + DELT; 
go to line; 
exit: end COMPLINEINTGRL. 
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ALGORITHM 99 

EVALUATION OF JACOBI SYMBOL 
STEPHEN J. GARLAND AND ANTHONY W. KNAPP 
Dartmouth College, Hanover, N. H. 


procedure Jacobi (n,m,r); 
integer n,m, r; 
comment Jacobi computes the value of the Jacobi symbol (n/m), 
where m is odd, by the law of quadratic reciprocity. The param- 
eter r is assigned one of the values —1, 0, or 1 if m is odd. If m 
is even, the symbol is undefined and r is assigned the value 2. 
For odd m the routine provides a test of whether m and n are 
relatively prime. The value of r is 0 if and only if m and n have 
a nontrivial common factor. In the special case where m is prime, 
r = —] if and only if is a quadratic nonresidue of m; 
begin 
integer s; 
Boolean p, q; 
Boolean procedure parity (x); value x; integer x; 
comment The value of the function parity is true if x is 
odd, false if x is even; 
begin 
parity := x +2xX2 7x 
end parity; 
if — parity (m) then begin r := 2; goto exit end; 
p := true; 
loop: n:=n—n+mXm; 
q := false; 
if n <= 1 then go to done; 
if — parity (n) then 
begin 
q:=—-74q; 
ni= n+ 2; 
go to even 
end n now odd; 
if q then if parity ((m12 — 1)+8) then p := 4p; 
if n = 1 then go to done; 
if parity ((m—1) X (n—1) + 4) then p:= -p; 
S:=m; M:=n; n:= 8; goto loop; 
done: r:= ifn = 0 then 0 else if p then 1 else —1; 
exit: end Jacobi | 


value n,m; 


even: 


REMARK ON ALGORITHM 99 
EVALUATION OF JACOBI SYMBOL [8. J. Gar- 

land and A. W. Knapp, Comm. ACM 6, June 1962] 
Ronatp W. May 
University of Alberta, Calgary, Alberta, Canada 

One syntactical error was found in this procedure. It occurs 
in the second if statement following the label even. The state- 
ment 

if q then if parity ((mf?2—1)+8) then 
p= — Dp; 

might be changed as follows. 
if gq then go to CHECK; 
if n = 1 then go to done; 
if parity (Gm f 2 — 1) + 8) then 


P= 7 Pj 
go to next 1; 


next 1: 
CHECK: 
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The two statements beginning with CHECK could be inserted 
before the label done and after the statement go to loop;, 
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ALGORITHM 100 

ADD ITEM TO CHAIN-LINKED LIST 

Puiuip J. Kiviat 

United States Steel Corp., Appl. Research Lab., Monroe- 
ville, Penn. 


procedure | inlist (t,info,m,list,n,first,flag,addr,listfull) ; 
integer n,m,first,flag,t; integer array info,list,addr; 
comment inlist adds the information pair {t,info} to the chain- 
link structured matrix list (7,7), where ¢ is.an order key = 0, and 
info(k) an information vector associated with t. info(k) has di- 
mension m, list(7,j) has dimensions (n X (m+8)). flag denotes 
the head and tail of list (7,7), and first contains the address of the 
first (lowest order) entry in list(z,7). addr(k) is a vector con- 
taining the addresses of available (empty) rows in list(i,j). 
Initialization: list(¢,m+2) = flag, for some i S n. If list(i,j) is 
filled exit is to listfull; 
begin integer i, j, linkl, link2; 
0: ifaddr [1] =0; then gotolistfull; i:=1; 
1: if list [i,1] Ss t 
then begin if list [1,2] 4 0 then begin linkl := m-+2; 
link2 := m+3; goto2end; else begin if 
list [i.m+2] = flag then begin i := flag; 
link] := m+3; link2 := m+2; goto3end; 
else begin i := i+1; goto 1 end end end; 
else begin link! := m+3; link2 := m+2 end; 
2: if list [i,link2] ¥ flag 
then begin k := i; i := list [i,link2]; 
if (ink2 = m+2 A list [i,1] S$ t) V 
(link2 # m+2 A list [i,1] > t) then go to 4; 
else go to 1 end; 
else begin list [i,link2] := addr [1] end; 
3: j:= addr {1]; list [j,link1] := i; 
list [j,link2] := flag; if link2 = m+2 then 
first := addr [1]; go to 5; 
4: j := addr [1]; list [j,link1] := list [i,link1]; 
list [i,link1] := list [k,link2] := addr [1]; 
list [j,link2] := i; 
5: list [j,1] := t; fori := 1 step 1 until m do 
list [j,i+1] := info [i]; fori := 1 step 1 until n—1 do 
addr [i] := addr [i+1]; addr [n] := 0 
end = inlist 
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ALGORITHM 101 

REMOVE ITEM FROM CHAIN-LINKED LIST 

Puiuie J. Krviat 

United States Steel Corp., Appl. Res. Lab., Monroeville, 
Penn. 


procedure outlist (vector,m,list,n,first,flag,addr) ; 
integer n,m,first,flag; integer array vector,list,addr; 
comment outlist removes the first entry (information pair with 
lowest order key) from list(z,j) and puts it in vector(k); 
begin integer i; 
for i := 1 step 1 until m+1 do vector{i] := list |first,i]; 
for i := n—1 step —1 until 1 do addr [i+1] := addr [i]; 
addr [1} := first; 
if list [first,m+3] = flag then 
begin list [1,m+2] := flag; first := 1; 
for i := 1 step 1 until n do addr [i] := i end; 
else begin first := list [first,m-+3]; 
list [first,m+2] := flag end; 
for i := 1 step 1 until m+3 do list [addr [1], i] := 0 
end outlist 
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ALGORITHM 102 

PERMUTATION IN LEXICOGRAPHICAL ORDER 
G. F. Scurack anp M. Suimrat 

University of Alberta, Calgary, Alberta, Canada 


procedure PERMULEX(n,p); 

integer n; integer array p; 

comment Successive calls of the procedure will generate all 
permutations p of 1,2,3,---,n in lexicographical order. Before the 
first call, the non-local Boolean variable ‘flag’ must be set to 
true. If after an execution of PERMULEX ‘flag’ is false, 
additional calls will generate further permutations—if true, all 
permutations have been obtained; 

begin integer array g[l:n]; integer i, k, t; Boolean flag2; 

if flag then 
begin for i := 1 step 1 until n do 
pli] := i; flag2 := true; flag := false; 
go to EXIT 
end initialize; 

if flag2 then 


begin t := pin]; pln] := p[n—1]; p[fn—1] := t; 
flag2 := false; go to EXIT 
end bypass; 


flag2 := true; fori := n—2 step —1 until 1 do 
if p[i] < p[i+1] then go to A; 


flag := true; goto EXIT; 
A: for k := 1 step 1 until n do q[k] := 0; 
for k := i step 1 until n do q[p[k]] := p[k]; 
for k := p[i] + 1 step 1 until n do 


if q{k] ~ 0 then go to B; 
B: pfi] := k; q[k}] := 0; 
for k := 1 step 1 until n do 
if q([k] ~ O then begini := i+ 1; p[i] := q{k] end 
else if i 2 n then go to EXIT; 
EXIT: 
end PERMULEX 


REMARKS ON: 


ALGORITHM 87 [G6] 
PERMUTATION GENERATOR 
[John R. Howell, Comm. ACM 6 (Apr. 1962), 209] 
ALGORITHM 102 [G6] 
PERMUTATION IN LEXICOGRAPHICAL ORDER 


[G. F. Schrak and M. Shimrat, Comm. ACM 65 (June 


(1962), 346] 
ALGORITHM 130 [G6] 
PERMUTE 

[Lt. B. C. Eaves, Comm. ACM 6 (Nov. 1962), 551] 
ALGORITHM 202 [G6] | 
GENERATION OF PERMUTATIONS IN 
LEXICOGRAPHICAL ORDER 

{[Mok-Kong Shen, Comm. ACM 6 (Sept. 1963), 517] 
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R. J. Orp-SmitH (Recd. 11 Nov. 1966, 28 Dec. 1966 and 
17 Mar. 1967) 
Computing Laboratory, University of Bradford, England 


A comparison of the published algorithms which seek to generate 
successive permutations in lexicographic order shows that Algo- 
rithm 202 is the most efficient. Since, however, it is more than twice 
as slow as transposition Algorithm 115 [H. F. Trotter, Perm, 
Comm. ACM 6 (Aug. 1962), 434], there appears to be room for im- 
provement. Theoretically a ‘‘best’’ lexicographic algorithm 
should be about one and a half times slower than Algorithm 115. 
See Algorithm 308 [R. J. Urd-Smith, Generation of Permutations 
in Pseudo-Lexicographic Order, Comm. ACM 10 (July 1967), 452] 
which is twice as fast as Algorithm 202. 


ALGORITHM 87 is very slow. 
ALGORITHM 102 shows a marked improvement. 


ALGORITHM 130 does not appear to have been certified before. 
We find that, certainly for some forms of vector to be permuted, 
the algorithm can fail. The reason is as follows. 

At execution of A[f] := r; on line prior to that labeled schell, f 
has not necessarily been assigned a value. f has a value if, and 
only if, the Boolean expression B[k] > 0 A Bik] < Bim] is true for 
at least one of the relevant values of &. In particular when matrix 
A is set up by A[i] := 7; for each ¢ the Boolean expression above is 
false on the first call. 7 


ALGORITHM 202 is the best and fastest algorithm of the 
exicographic set so far published. 


A collected comparison of these algorithms is given in Table I. 
tn is the time for complete generation of m! permutations. Times 
are scaled relative to és for Algorithm 202, which is set at 100. 
Tests were made on an ICT 1905 computer. The actual time fs 
for Algorithm 202 on this machine was 100 seconds. rn has the 
usual definition rz, = tp/(n-tn-1). 


TABLE I 
Algorithm tg 2] bg rs 17 Ts 
87 118 —_ — — = —_ 
102 2.1 15.5 135 1.03 1.08 1.1 
130 ee = cele NE aes = — 
202 1.7 12.4 100 1.00 1.00 1.00 
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ALGORITHM 108 

SIMPSON’S RULE INTEGRATOR 

Guy F. Kuncm 

UNIVAC Division, Sperry Rand Corp., San Diego, Calif. 


procedure SIMPSON (a, b, f, I, i eps, N); 
value a, b, eps, N;_ integer N; 
real a, b, 1, i, eps; real procedure f; 
comment This procedure integrates the function f(z) using a 
modified Simpson’s Rule quadrature formula. The quadrature is 
performed over j subintervals of [a,b] forming the total area J. 
Convergence in each subinterval of length (b—a)/2" is indicated 
when the relative difference between successive three-point and 
five-point area approximations 
As; = (b—a) (go + 4g2 + gu)/(3-2"*) 
As,j = (b—a)(go + 491 + 2g2 + 49s + ga)/(8-2"*?) 
is less than or equal to an appropriate portion of the over-all 
tolerance eps (i.e., |(.45,; — As,;)/As,; | S eps/2* with n S N). 
SIMPSON will reduce the size of each interval until this con- 
dition is satisfied. 
Complete integration over [a,b] is indicated by 7 = b. A value 
/@8%< bis indicates that the integration was terminated, leav- 
ing I the true area under f in [a,7]. Further integration over |7,b] 
will necessitate either the assignment of a larger N, a larger eps, 
or an integral substitution reducing the slope of the integrand in 
that interval. It is recommended that this procedure be used 
between known integrand maxima and minima.; 
begin integer m,n; real d,h; array g[0:4], A{0:2], S[1:N, 1:3]; 
Il:=i:=m:= n:= 0; 


gl0] := f(a); 
gl2] := f((a + b)/2); 
g[4] := f(b); 


Alo] := (b — a) X (gl0] + 4 x gi2] + gf4])/2; 
AA: d:= 2fn; h:= (b — a)/4/d; 
gil] := fa +hxX (4X m-+1)); 


e(3] = fla thx 4X m+ 3)); 
All] := h X (gl0] + 4 X efl] + ef2)); 
A[2] := h X (g[2] + 4 & g[3] + 2f4]); 


if abs (((A[1] + A[2]) — A[0})/(A[1] + A[2])) > eps/d 
then begin m := 2X m;n:=n-+1; 
ifn > N then go to CC; 
A[O] := All}; S{n,1] := A[2]; 
S[n,2} := g[3]; Sln,3) := [4]; 
gl4] := g[2]; g[2] := ell]; goto AA 
end 
else begin I := I + (A[1] + Al[2])/3; 
m:=m-+1; i:=a+m xX (b-— a)/d; 
BB: ifm = 2 X (m + 2) then 
beginm:=m-+2; n:=n—1; goto BB end 
if (m #1) V (n # 0) then 
begin A(0] := S{n,1]; gl0] := gf4]; 
g[2] := Sin,2];  g[4]:= S[n,3]; go toAAend 
end 


CC: end SIMPSON 
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ALGORITHM. 104 

REDUCTION TO JACOBI 

H. RuTIsHAUsER 

Eidg. Technische Hochschule, Zurich, Switzerland 


procedure m2! (n, a, b, c, inform); value n; 
integer n; array a,b,c; procedure inform; 
comment: m2/ transforms symmetric bandmatrix 


( aft] 
bf[1] 
c{1] 


b{1] 

a[2] 

b[2] 

c[2]_ ™ ¢{n—-2] 

O Pe a[n—1] b[n—1] 
~¢e[n—2] b[n—1] afn] 


e(1] 
b[2} 
a3] 


e[2] O 


b[3] 


represented by the arrays a, b, c by orthogonal transformation 
to Jacobi form which is represented by the arrays a, b. The 
method is described in H. RutisHauser, “On Jacobi rotation 
patterns,” to appear in Proc. Symposium in Experimental 
Arithmetic, Chicago, Apr. 12-14, 1962, Sect. 5. Note that -decla- 
rations must be given for the arrays a, b, c with subscripts 
ranging from 1 to n. Also procedure inform must be declared. 
It may serve to use the Jacobi rotations occurring inside m2 
also for other purposes; 
begin. 
real p, g, d, 8; 
integer k, j; 
b[n] := c[n] := c[n—1]: = 0; 
for k := 2 step 1 until n—1 do 
begin 
for j := k step 2 until n—1 do 
begin 
if k=j then 
begin 
p := sqrt(b([k—1]f2 + e{k—1]f2); 
if p=0 then go to ez; 


d := b(k—1]/p; 
s:= —e[k—1]/p; 
b{k—1] := p; 
c{k—1] := 0 
end k=j 
else 
begin 


p := sqrt(c[j—2]f2+g12); 
if p = 0 then go to ez; 


d := efj—2]/p; 
s:= —g/p; 
e[j—2] := p; 


p := dxXb{j—1])—sx<ef[j—1]; 
e[j—-1] := sXbQ—1]+dxXefj—1]; 
blj—1] := p 
end jk; 
common: gg := 2Xblj]xdxXs; 
p := alj]xdxd—g+alj+1]xXsxXs; 
bij] := (a{j]—alj+1])xdxXs+blj]x (dxd—sxs); 
alj+1] := alj]xsxXs+g+alj+l1])xdxd; 
alj] := p; 
p := dXelj]—sxXblj+1); 
b(j+1] := sxXcfj]+dxbii+1]; 
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elj] := p; 

g:= —sXelj+l]; 

e(j +1] := dXelj+1]; 

inform (n, j, d,s); . 

comment: The Jacobi rotation which has been performed 
in this turn of the j-loop is A := U"AU with 


where the d’s and s’s are located at the crosspoints of 
rows and columns j and j +1; 

end j; 

ex: end k 

end m21 
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ALGORITHM 105 

NEWTON MAEHLY 

F. L. Baver anp J. SToER 
Johannes Gutenberg-Universitat, Mainz, Germany 


procedure Newton Maehly (a, n, z, eps); 

value n, eps; 

array 4, Z; 

integer n; 

real eps; 

comment The procedure determines all zeros z{1:n] of the 
polynomial p(x) := a[0] X «fn + --- + a[n] of order n, if p(x) 
has only real zeros which have to be all different. The zeros 
z(t] are ordered according to their magnitude: z[1]>z2[2]> 
-++>z[n]. The approximations for each zero will be improved 
by iteration as long as abs(zl—2x0)>eps X abs(zx1) holds 
for two successive approximations x0 and 21; 

begin real aa, pp, qq, x0, x1; 

integer i, m, 8; 

array b, p, q(0:n—1]; 

procedure Horner(p, q, n, x, pp, qq); 

. value n, x; 
array P, q; 
real pp, x, qq; 
integer n; 

begin real] s, sl; 
integer i; 
s := sl := 0; 
for i := 0 step 1 until n—1 do 


begin s := sXx+pfi]; sl := slXx+q[i]; end; 


pp := 8Xx+pln]; qq := sl; 
end; 
p[0] := aa := a[0]; x0 := pp := 0; s := sign(al0)); 


for i := 1 step 1 until n do 
ifs X ali]<0 then 
begin if pp=0 then pp := i; 
if x0<abs(a[i]) then x0 := abs(al[i]); 
end; 
x0 := if pp=0 then 0 else 1+exp(In(abs(xo/aa))/pp); 
comment 70 is a first approximation for the largest zero which 
may be printed out at this point of the program; 
fori := 0 step 1 until n—1 do bi] := M—1)Xalfil; 
for m := 1 step 1 uhtil n do 
begin 
iteration: 
Horner (a, b, n, x0, pp, aq); xl := x0—pp/aq; 
if abs(xl—x0)>epsXabs(xl) then 
begin x0 := xl; 
comment 0 is the last approximation for the zero 
being improved, which may be printed out at this 
point; 
go to iteration; 
end; 
z{m] := xl; 
comment z{m] := 21 is the mth zero of the polynomial; 
pp :== b(0] := bi0] — aa; q{0] := pp; 
if m<n then 
begin for i :== 1 step 1 until n—1 do 
begin pp := p[{i] := xlxXpfi—1]+a(i); 
pp := bfi] := b(i)—pp; 
qli] :-= xlXqli—11+pp; 
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end; 

Horner (p, q, n—1, x1, pp, 4q); 
x0 := xl—pp/qq; 

comment x0 is a first approximation for the 
next zero; 

end 
end 
end Newton Maehly; 


CERTIFICATION OF ALGORITHM 105 
NEWTON MAEHLY [F. L. Bauer and J. Stoer, Comm. 
ACM, July 1962] 
JOANNE Konpbo 
Burroughs Corp., Pasadena, Calif. 
Algorithm 105 was successfully run on Burroughs 220 computer 
after the following correction had been made: 
for 7 := 0 step 1 until n — 1 do b[t] := (n—1) X alt] 
changed to 
for 7 := 0 step 1 until n—1 do b[t] := (n—7) X alt]. 
The following polynomials were tested for real roots using this 
algorithm: 


polynomial epsilon accuracy 
(1) 2? — 22? — 52 + 6 0.9000001 10-8 
(2) 25 — 15a* + 8523 — 2252? + 2742 — 120 0.000001 10-5 
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ALGORITHM 106 

COMPLEX NUMBER TO A REAL POWER 
Marcaret L. JoHNSON AND Warp SANGREN 
Computer Applications, Inc., San Diego, California 


procedure POWC (x, y, w, A, B); value x, y, w; 
real x, y, w, A, B; , 
comment This procedure takes a complex number (x-+7y) to 
a real power w. The result is A+7B=(x+1iy)”. This procedure 
must be used with caution because although it is formally cor- 
rect, it may not give the desired results. For example, if w is a 
reciprocal integer it does not follow that the desired power 
(a root) will be calculated; 
begin real THETA, PHI, R; 
if x>0 then begin THETA := 0.0; go to SOL | end; 
if x<0Ay20 then begin THETA := 3.1415927; 
go to SOL 1 end; 
if x<0Ay<0 then begin THETA := 3.1415927; 
go to SOL 1 end; 
if x=0/Ay=0 then begin A := B:=0.0; goto RETURN end: 
if x=0/Ay <0 then begin PHI := 1.5707963; go toSOL2 end; 
if x=0/Ay>0 then begin PHI := —1.5707963; 
go to SOL 2 end; 
SOL 1: PHI := arctan (y/x)-+THETA; 


SOL 2: R := sqrt (xxXx+yXy); 
R := exp (wXIn(R)); 
A := RxXcos (wXPHI); 
B := RXsin (wXPHI); 


RETURN: end POWC 


REMARK ON ALGORITHM 106 

COMPLEX NUMBER TO A REAL POWER [Mar- 
garet L. Johnson and Ward Sangren, Comm. ACM 
6, Jul. 1962] 

Grant W. Erwin, JR. 

The Boeing Co., Renton, Wash. 


The comment ‘if W is a reciprocal integer it does not follow 
that the desired power (a root) will be calculated’ might better 
read ‘if W is the reciprocal of an integer N, the procedure will 
calculate an nth root, but possibly not the particular nth root 
desired. E.g. w = 4,2 = —1,y = Ouields A = $, B = 4/3 rather 
than the simpler A = —1, B = 0.”’ 

The comment should be made that it is assumed that the arctan 
function yields a result between —7/2 and 7/2. 

The following four corrections should be made: 

(1) if <0 Ay < 0 then begin THETA: = 3.1415927; 


should read: 
-++ THETA: = —3.1415927; 
(2) go to RETURN end: 
should read: 
go to RETURN end; 
(8) ifzx=0/)A y<0--:: 
should read: 
ifx=OAy>0::: 
(4) ift=0/Ay>0 
should read: 


ife=O0Ay<0-- 
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ALGORITHM 107 

GAUSS’S METHOD 

Jay W. Counts 

University of Missouri, Columbia, Mo. 


procedure gauss (u, a, y); 
real array a, y; real temp; integer u; 
comment ‘This procedure is for solving a system of 
linear equations by successive elimination of the un- 
knowns. The augmented matrix is a and u the number of 
unknowns. The solution vector is y. If the system hasn’t 
any solution or many solutions, this is indicated by go 
to stop; 
begin 
integer i, j, k, m, n; 
n := 0; 
ckO: n:= n+1; 
for k := n step 1 until u do if a[k, n]¥0 then go to ckl; 
go to stop; 
eckl: if k=n then go to ck2; 
for m := n step lt until u+1 do 
begin 
temp := a[n, mJ; 
end; 
cek2: for j := u+1 step—1 until n do a(n, j] := a(n, j]/a[n, nj; 
for i := k+1 step 1 until u do 
for j := n+1 step 1 until u+1 do 
ali, }] := afi, j]—ali, n)xaln, j); 
if n~u then go to ck0; 
for i := u step—1 until 1 do 
begin 
yli] := afi, u+1)/ali, i); 
for k := i-1 step—1 until 1 do 
alk, u+1] := af{k, u+1]—a[k, i]x<ylil 


end end; 


a(n, m] := afk, m]; afk, m] := temp 


REMARK ON ALGORITHM 107 

GAUSS’S METHOD [J. W. Counts, Comm. ACM, 
July 1962] 

P. NauR 

Regnecentralen, Copenhagen, Denmark 
Algorithm 107 cannot be recommended since it does not search 


for pivot and therefore will yield poor accuracy (ef. Remarks on 
Algorithm 42 above). 


CORRECTION TO EARLIER REMARKS ON AL- 
GORITHM 42 INVERT, ALG. 107 GAUSS’S METHOD, 
ALG. 120 INVERSION II, AND gir [P. Naur, Comm. 
ACM, Jan. 1963, 38—40.] 
P. Naur 
Regnecentralen, Copenhagen, Denmark 

George Forsythe, Stanford University, in a private communi- 
cation has informed me of two major weaknesses in my remarks on 


the above algorithms: 
1) The computed inverses of rounded Hilbert matrices are com- 
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pared with the exact inverses of unrounded Hilbert matrices, in- 
stead of with very accurate inverses of the rounded Hilbert 
matrices. a 

2) In criticizing matrix inversion procedures for not searching 
for pivot, the errors in inverting positive definite matrices cannot 
be used since pivot searching seems to make little difference with 
such matrices. 

It is therefore clear that although the figures quoted in the 
earlier certification are correct as they stand, they do not sub- 
stantiate the claims I have made for thern. 

To obtain a more valid criterion, without going into the con- 
siderable trouble of obtaining the very accurate inverses of the 
rounded Hilbert matrices, I have multiplied the calculated in- 
verses by the original rounded matrices and compared the results | 
with the unit matrix. The largest deviation was found as follows: 


Maximum deviation from elements of the unit matrix 


Order INVERSION II gir Ratic 
2 —1.4919—8 —1.4919—8 1.0. 
3 —4.77 9-7 —8.34)9—7 0.57 
4 ~9,5410—6 23 480-6 0.28 . 
5 —7.3219—4 —4.5810—4 1.6 
6 —1.61li0—2 —1.421)—2 1.1 
7 —5.78:9—1 —5.4719—1 1.1 
8 —1.20i19—2 — 1.38301 8.7 
9 —4.9]iol —2.22:01 2.2 


This criterion supports Forsythe’s criticism. In fact, on the 
basis of this criterion no preference of INVERSION II or gjr can 
be made. 

The calculations were made in the Grrr ALGOL system, which 
has floating numbers of 29 significant bits. 
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ALGORITHM 108 

DEFINITE EXPONENTIAL INTEGRALS AD 
Yuri A. KRUGLYAK — 

Kharkov State University, Kharkov, . S.8.R., AND 
Donatp R. WHITMAN 

Case Institute of Technology, Cleveland, Ohio 


real procedure As (n, b); value n, b; integer n; real b; 
comment: This procedure: computes a value of integral 
A,v(1, b) = fs , @*exp(—bx) dx for any given positive integer, n, 
and any positive real parameter, b, by the recursion formula 
An(1, 6)=Ao(1, b)+(n/b)Ana(1, 6) with Ao(1, 6) =exp(—b)/b; 
begin integer m; real db; real array a/[l:n]; 
a(1] := exp (—b)/b; 
if n=1 then go to exit; | 
comment integral a[1]=Ao(1, 6) was avauntea: 
db := 1/b;_ for m := 2 step 1. until n do a{m] := 
F a(1]-+dbx (m—1)Xalm—1];, 
comment integral a[n]=A,_,(1, b) was evaluated; 
As := a(n] end As; 
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DEFINITE EXPONENTIAL INTEGRALS A [Yuri 
A. Kruglyak and Donald R. Whitman, Comm. ACM 6 
(July 1962)] 

Yuri A. Kruetyak 

Kharkov State University, Kharkov, U.S.S.R. and 

Donatp R. WHITMAN 

Case Institute of Technology, Cleveland, Ohio 


Integrals A,(1,b) = “ff  x"exp(—bax)dz occur in physical problems 
involving spheroidal coordinates, particularly in quantum chem- 
istry calculations. This algorithm was programmed for the Bur- 
rough’s 220 computer using Burrough’s Algebraic Compiler. The 
program was used to compute tables of A,(1,b) in the ranges 
n=0(1)15, and 6=0.01(0.01)30.14. For example, for n=0(1)15, and 
b=0.25 and b=24.0, the results below were obtained. These are 
compared with the results (columns 3 and 5) obtained by James 
Miller, John M. Gerhauser, and F. A. Matsen [Quantum Chemistry 
Integrals and Tables, University of Texas Press, 1959]. 


b=0.25 (Miller b=24.0 (Miller 
b=0.25 et al.) b=24.0 et al.) 


31152031, 
. 15576015, 
. 12772332, 
- 15357950, 
. 24575835, 
- 49151976, 
11796476, 
33080132, 
- 10569642, 
38060711, 
10 .15220284, 
11 .66969248, 
12 .382146238, 
13. 16715523, 
14 .93606928, 
15 .56164166, 


OMBNB AeA HONK SO B 


. 31152031322856, 
. 15576015661428, 
. 1277233284271, 
: 15357051 442168, 
.24576837510601, 
. 4915 1986541516, 
. 1796479885167, 
. 33030143989988, 
. 10569646079911, 
placed 


Le apied 


. 9277562880, 
“3a aanssviee. 
. 16715531679695, 
- 93606977 406291, 
-56164186443775, 


«15729727, —11 
- 16385132, —11 
17095154, —11 
. 17866621, —11 
- 18707497, —11 
. 19627122, —11 
+ 20636507, —11 
- 21748707, —11 
22979295, —11 
. 24346962, —11 
. 25874204, —11 
. 27688778, —11 
29524115, —11 
31721955, —11 
34234200, —11 
37126102, —11 


. 15729727267830, —11 
. 16385132570656, —11 
. 17095154982051, —11 
. 17866621640586, —11 
. 18707497541261,—11 
. 19627122588926, —11 
. 20636507915061, —11 
.21748708743056,—11 
. 22070296848848, —11 
. 24346963586148, —11 
. 25874205428724, —11 
. 27588779339328, —11 
.20524116037494, —11 
.81721967275639, — 11 
.34234202345285, —11 
.37126103733633, —11 


The accuracy is at least six significant figures over the entire 
range. This accuracy is.completely satisfactory for all quantum 
chemical calculations. 
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ALGORITHM 109 

DEFINITE EXPONENTIAL INTEGRALS B 
Yuri A. Krueryak 

Kharkov State University, Kharkov, U.S.S.R., anp 
DonaLp R. WHITMAN 

Case Institute of Technology, Cleveland, Ohio 


real procedure Bs(n, 2); value n, a; integer n; real a; 

comment This procedure computes a value of the integral 
B,-1(a) = [ti 2 exp(—ax)dzx for any given positive integer, n, 
and any real parameter, a. If |a|<alim an expansion of 
exp(—az) is used, otherwise the recursion formula B,(a)= 
[(—1)"e*—e-*-+-nB,_1(a)]/a with bo(a)=2 sinh(a)/a is used. The 
value of alim depends upon the highest n appearing in the 
calculations and upon the maximum errors in the last significant 
digits in the library procedures. For example, we have used 
alim=8 for tmax=16 with gamma=1X10-°. The intrinsic func- 
tion mod(#, , Ez) which requires two integer arguments, is the 
conventional modulus; 


begin integer m; real alim, delta, gamma, r, epsilon, 
8, k, a2, omega, da, jp, jm, ql, q2; real array 
b{1l:n]; if a=0 then 
Li: begin if mod(n—1, 2)=0 then 
L2: - begin b[n] := 2/n; go to exit end L2; 
comment integral b(n] = B,1(0) for odd n was evaluated; 
b[n] := 0; go to exit end LI; 
comment integral b[n] = B,1(0) for even n was evaluated; 
if abs(a) alim then 
L3: begin delta := gamma; if mod(n—1, 2)=0 then 
L4: begin r := 2/n; epsilon: := rXdelta; s := r; 
k := 0; a2 := af2; 
Even: k := k+2; 
r i= rXa2X (n+k—2)/(kX (k—1) x (n+k)); 
8 := 8+r; if r>epsilon then go to Even; 
b[n] := s-+-r; 
go to exit end L4; 
comment integral b[n]=B,1(@) for odd n and |a|<alim was 
evaluated; 
r := 2Xa/(a+1); omega := abs(rXdelta); 
s:=r; k:=1; 
a2 := af2; 
Odd: k := k+2; 
r:= rXa2xX (n+k—2)/(kxX (k—1)X (n+k)); 
8 := s+r; if abs(r)>omega then go to Odd; 
b[n] := —(s+r); go to exit end L3; 
comment integral b[n]=B,_:(a) for even n and | a |<alim was 
evaluated; 
da := 1/a; jp := daXexp(a); jm := (daf2)/jp; 
b{1] := jp—jm; 
if n=1 then go to exit; 
comment integral b{1] = By(a) for |a|Zalim was evaluated; 


ql := —1; q2:=1; form := 2 step 1 until n do 
L5: - begin b[m] := qliXjp—jm+q2xfaxb[m—1]; 


ql := —ql; q2 := q2+1 end L5; 
comment integral b[n]=B,_,(a) for integer n22 and | a |Zalim 
was evaluated; 
exit: Bs := b[n] end Bs; 
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DEFINITE EXPONENTIAL INTEGRALS B [Yuri A. 
Kruglyak, D. R. Whitman, Comm. ACM 6 (July 1962)] 

Yurt A. Kruauyak 

Kharkov State University, Kharkov, U.S.S.R., and 

DonaLtp R. WuHrtMaNn 

Case Institute of Technology, Cleveland, Ohio 


Integrals B,(a)= {+i 2"exp(—ax)dx occur in physical problems 
involving spheroidal coordinates, particularly in quantum chem- 
istry calculations. This algorithm was programmed for the Bur- 
roughs-220 computer using a Burroughs. Algebraic Compiler. The 
program was used to compute tables of B,(a) in the ranges 
n=0(1)15, and a=0.00(0.01)32.54. For example, for n=0(1)15 and 
a=0.25, and a=24.0 the results below were obtained. These are 
compared with the results (columns 3 and 5) obtained by James 
Miller, John M. Gerhauser, and F. A. Matsen [Quantum Chemisiry 
Integrals and Tables, University of Texas Press, Austin, 1959]. 


a~=0.26 (Miller a=24.0 (Miller 
n a=(0.25 et al.) a=24.0 etal.) . 
0 20208084, 01  .20208985344053, 01  .11037134, 10 —_. 110871342208, 10 
1 —.16771064, 00 —.16771066117520, 00 —.10577253, 10 —. 105772536282, 10 
2 67921322, 00  .67921324506375, 00 10155696, 10 —. 101556964184, 10 
3 —.10074584, 00 —.10074585827150, 00 —.97676725, 09 —.976767216847, 09 
4  .40806479, 00 .40896480211998, 00 94091887, 09° 940018885936, 09 
5 —.72008754,—01 —.72008756636929,—01 —.90768866, 09 —.907688654174, 00 
6 29268836, 00 .29268837517905, 00 87679129, 09 876921258533, 09 
7 —.56030202,—01 —.56030204023170,—01 —. #4708262, 09 —.847982638338, 09 
8  .22792011, 00  .22792012573392, 00  .£2105258, 09  — . 821052542631, 09 
9 —.45856272,—01 —.46856272975462,—01 —.79581870, 09 —.795818718500, 09 
10 18664760, 00  . 18664761544688, 00  .77212229, 09 —. 772122280331, 09 
11 —.38809718,—01 —.38800719373731,—01 —.74982404, 09 —.749824030467, 09 
12 .18803198, 00 .16803200452627, 00 .72880141, 09  — . 728801402343, 09 
13 —.33640562,—01 —.33640563670387,—01 —.70894600, 09 —.708945095807, 09 
14 .13702606, 00 .18702696892367, 00 69016158, 09 — . 690161591189, 09 


15 —.29686662,—01 ~~ .20686663616401,—-01 —.€7236245, 08 ~—-.672362427583, 09 


The accuracy is at least six significant figures in the ranges 
mentioned above. This accuracy is enough for the majority of 
quantum chemistry calculations. - 
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ALGORITHM $110 

QUANTUM MECHANICAL INTEGRALS OF 
SLATER-TYPE ORBITALS 

Yuri A. KRuGitYAK 

Kharkov State University, Kharkov, U‘S.S.R., anp 

Donatp R. WHITMAN 

Case Institute, of "Technology, Cleveland, Ohio 


real procedure INTSOLI (a, r, za, ab, As, Bs) Result: 


(s, il, i2, 18); 
real array a[1:8], b[1:8], G[1:2xnJ; 
real procedure As, Bs; 


1:2XnJ; 


value n, r, za, zb; integer n; real r, za, zb; 


integer array be[1:2x<n, 


comment Procedure INTSOLI computes the quantum mechan- 


ical integrals 8= (Wn00 | Waio) 


and 


(overlap integral), 
il = (Yinoo | Za*/Yai | yrio) (exchange integral), 
i2= (noo | Ze*/rox | Yoo) . (coulomb integral), 
i3= (oto | Za*/tas | ¥bi0) (coulomb integral). 


“Here | Wnim) is a Slater-type orbital of electron 7 centered on 
atomic nucleus a. The integer n is the effective principal quan- 
tum number with values 1, 2, 3 and 4. Z,*=za and Z,*=2b 
are effective nuclear charges. 75; is the distance of electron 
i from nucleus b. The input parameter r is the distance be- 
tween the two centers a and b. All physical quantities are 
given in atomic units; 


begin 


comment 


procedure 


comment 


begin 


exitAs: 
procedure 


comment 


begin 


integer q, t,c,m; 
real g, zsa, zsb, ks, p, pt, lilya, s, kl, exc, il, pppt, 
k2, sue, i2, pmpt, ptmp, k3, i3; 
be[1, 1) := be[2, 1] := be[2, 2] := 1; 
for gq := 3 step 1 until 2Xn do 
begin be[g, 1] :=1; fort := 2 step 1 until g—1do 
be[q, t] := be[q—1, t—1]+be[q—1, 4]; 
be[q, q] := 1 end L6; 


binomial coefficients bc[q, t]= =) were computed 


using the recursion formula (7) = (ie 1) +(*) ‘); 
As(n, b) Result: (afn]); 
real b; 
procedure As computes a value of integral A,_;(1, b) 
[see Algorithm 108, ‘‘Definite Exponential Inte- 
grals A,” by Yuri A. Kruglyak and D. R. Whitman, 
Comm. ACM (July 1962)]. Any identifier occurring 
within the As is specified to be local to the As; 
integer m; real db; a[l] := exp(—b)/b; 
tf n=1 then go to exitAs; db := 1/b; 
for m := 2 step 1 until n do a[m] := a(l] + 
dbX (m—1)Xa{m—1] 
end As; 
Bs(n, a) Result: (b[n]); 
real a; 
procedure Bs computes a value of integral B,_,(a) 
[see Algorithm 109, ‘“‘Definite Exponential Inte- 
grals B”’ by Yuri A. Kruglyak and D. R. Whitman, 
Comm. ACM (July 1962)]. Any identifier occurring 
within the Bs is specified to be local to the Bs; 
integer m; real alim, delta, gamma, r, epsilon, 
8, k, a2, omega, da, up, jm, ql, Q2; 
if a=0 then begin if mod(n—1, 2)=0 
then begin b(n] := 2/n; go to exitBs end; 


value n, b; integer n; 


value n, a; integer n; 


comment 


Even: 


Odd: 


exitBs: 


comment 


ABSI: 


Il: 


I2:. 


BA2: 


I3: 
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b(n] := 0; go to exitBs end; 

if abs(a)<alim then begin delta := gamma; 
we have used alim=8 and gamma=1X10°8; 
if mod(n—1, 2)=0 then begin r := 2/n; 


epsilon := rX<delta; 

s:= r; k := 0; a2 := af2; 

k := k+2; 
ros rXa2X (nt+k—2)/((kx (k-1) (n+k)); 

s := s+r; if r>epsilon then go to Even; 

b[n] := s+r; 

go. to. exitBs end; r := 2Xa/(n+1); 
omega := abs(rX delta); 

s:=r; k:=1; a2 := af2; 

k := k+2; 
ro:= rXa2X ma+k—2)/(kx (k-1)K @+k)); 

s := s-+r; if abs(r)>omega then go to Odd; 
bln] := —(s+r); go to exitBs end; da := 1/a; 
jp := daxXexp(a); 

jm := (daf2)/jp; bil] := jp—jm; 
if n=1 then go to exitBs; 

ql := —1; q2:= 1; for m := 2 step 1 until n 


do begin b[m] := qlXjp—jm+q2xXdaxb[m—1]; 
ql := —ql; q2 := q2-+1 end 

end Bs; 

g:=1; form :=.1 step 1 until 2Xn dog := g/m; 
G[2Xn] := g; 

1/(2n)}!=G[2Xn] was evaluated; 

wsa:= za/n; zsb := 2b/2; ks := (r/2)f(n+3)x 
(2Xzsa) f(n-+1/2) Xzsbf (5/2) X G[2X nJf (1/2) ; 
p := rX(zsa+zsb)/2; 

pt := rX(zsa—zsb)/2; 
for c := 1 step 1 until n+3 do 

begin As(c, p) Result: (afc]); 
Bs(c, pt) Result: (b[c]) 

end ABSI; 

lilya :=.0; for m := 0 step 1 until n do lilya := 
lilya+be[n+1, m-+1]X (afn—m+2]X (b{m+1]+ 
b{m+3]) —b[m+-2]X (a[a—m+1}+a[n—m-+3])); 
8s := ksXlilya; 

ki := ksX2xXza/r; exc := 0; 
for m := 0 step 1 until n—1 do 

exc := exe+be[n, m+1]X (a[n—m-+1]X (b[m+1]+ 
b{m+3]) —b[m+2]x (a[n—m]+a[n—m-+2])) ; 
il := klXexe; 

pppt := ptpt; k2 := 
(2Xn+1)XzsbxXG[2Xnj; 
for c := 1 step 1 until 2Xn do 

begin As(c, :pppt) Result: (a[c]); 
Bs(c, pppt) Result: (b[c]) 

end BA2; sue := 0; 
for m := 0 step 1 until 2Xn—1 do 


(r/2)T(2Xn) X (2X zsa)T 


sue := sue+be/2Xn, m+1]Xa[2Xn—m]xXb[m+1]; 
i2 := k2Xsue; 
pmpt := p—pt; ptmp := —pmpt; 


k3 := (r/2)T4K2XzaxXzsbT5; 

for ¢ := 1 step 1 until 4 do 

begin As(c, pmpt) Result: (a[c]); 
Bs(e, ptmp) Result: (b[c]) 

end AB38; i3 := k3xX (a[2]X (b[1]+2Xb[3]) —b[2]x 
(a[1J+2 a[3])-+a[4]x b[3]—a[3]X b[4]) end 
INTSOLI; 
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QUANTUM MECHANICAL INTEGRALS OF 
SLATER-TYPE ORBITALS [Yuri A. Kruglyak and 
Donald R. Whitman, Comm. ACM 5 (July 1962)] 

Yuri A. KrueuyaKx 

Kharkov State University, Kharkov, U.S.S.R. and 

DonaLp R. WHITMAN 

Case Institute of Technology, Cleveland, Ohio 


This procedure was written and tested in the Burroughs 220 
version of the ALGou language in the spring of 1961 at Case Insti- 
tute of Technology. The program was used to compute tables of 
quatnum mechanical integrals s, 71, 12, and 73 in the ranges: 
r(A) =0.64(0.02)1.40(0.10)3.10; Zo* =0.25(0.50)3.75, 3.90, 4.25, 
4.55, 4.75, 5.20, 5.25;° Z.*=0.7, 1.0 forn=1; 1.3(1.0)3.3 for n=2; 
0.2, 2.2(1.0)4.2 for n=3; and 0.2, 2.2, 3.2forn=4. The table at 
the right shows typical results compared with values from Inte- 
graltafeln zur Quantenchemie by H. Preuss (Springer-Verlag, 1957), 
Zweiter Band. Accuracy is at least six significant figures in the 
ranges mentioned above. This is ample for the overwhelming 
majority of quantum chemistry calculations. 


Certification of INTSOLI 


Input Preuss’ Result 
K. and W. Result _ — 
nr 2 zb : Notation bon 
. oO. 
0.5 0.1 
15 0.5 0.2 js |0.14841601 {1a 3b] 0.148417 23 
4.5 4.0 
11 4.5 8.0 Js |0.35203437 . (la 3b] 0.352034 30 
10 10 
21 20 20 |e |0.25032133X10- (2a 3b] 0.250321 107! 40 
0.5 0.1 
15 0.5 0.2 |@1 |0.22058816 ~ 5fa+ [la 3b] |0.220588 59 
4.5 4.0 
11 4.5 8.0 141 |0.96587055 lfa~: | ia 3b] |0.965871 66 
10 10 $ 
2 1 20 20 = {41 +/0.58102500107! Ifa! | 2a 3b] 0.581025<107! 78 
0.5 0.5 
11 0.5 0.2 |42 |0.44818080 I{b71 | la 1a} 0.448181 41 
0.5 0.5 
15 0.5 0.2 142 10.97641725 5[b7! | 1a la} 0.976417 45 
10 10 
21 20 20 =|42 /0.99999530 I[b7! | 2a 2a] 0.100000 10! 58 
0.5 0.8 
11 10 1 {43 |0.26217432 Ifb“! | 38a 3a] 0.262174 41 
5 65 
t 1 10 10 = 123: 10.11093011><10! I{b | 38a 3a) |0.110929>10! 50 
10. 10 


11 10 20 = {4 |0.10300137X101 I[b“! ! 3a 3a] }0.103001 X10! 58 
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MOLECULAR INTERACTIONS 

Yurrt A. KruGiyak 
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Donatp R. WHITMAN 

Case Institute of Technology, Cleveland, Ohio 


real procedure SOLI(n, za, zb, rem, coef2, rl, El, drl, drkl, 
acc, accel, rk2, rk1, dr2, asy, rk8, dr3, As, Bs, RESULT) Result: 
(ra, Ep, Em, ca, ca2, cb, cb2, DEa, DEb, s, il, i2, i138, haa, hab, 
hbb); value n, za, zb, rem, coef2, rl, El, drl, rkl, drk1, acc, 
accl, rk2, dr2, asy, rk3, dr3;_ integer n, rem; real otherwise; 
real array a([1:8], b[1:8], G[1:8], zsap [1:9], rp[1:8], ans[l:rem]; 
real procedure As, Bs, RESULT; 

comment This procedure calculates a one-electron approxima- 
tion to the energy of interaction of molecular species by the 
use of the molecular-orbital (MO) method with a linear com- 
bination of Slater-type orbitals (LCSTO). The wave function 
used is | )=ca | ¥%00)-++eo | W210, where | Yim) is a STO centered 
on nucleus a. The effective principal quantum number n takes 
the integral value 1, 2, 3 or 4. The Hamiltonian used is: IC,,= 
—A/2—Z4*/ra—Zn*/ru+Za*Zv*/Ra. Here Z.*. and Z,* are 
effective nuclear charges, r. and 7, the distances of the electron 
from nucleus a and b, and Ra is the distance between nuclei 
a and b. The calculations are in atomic units, while the output 
ra is in Angstroms and DEa and DEb are in keal/gm-ion. Ab- 
breviations of the following type are used: Za = Z,*, ra= 
Ra(A), haa=(Vr00 | Has | ¥400), DEa=D(a, b+electron), el= 
(roo | —A/2—Za*/ra | Wao). The values of coefl and 
coef2 are 627.71 (keal/gm-ion) and 0. 5291A, respectively. 
rl, El, dri, dr2, dr8, acc, acel, and asy are control parameters. 
The accuracy of the saloulations (acc, acel) is 1X10%. The 


initial values of Ra, and #_ are conveniently: rl=0. 4(A), and 
E1=100(a.u.). The steps are: drl1=0.1, dr2=0.4, and dr3=0.01, 
all in Angstroms. asy is —1X1073 (a.u.); 


begin integer q,t,c,m,f; real otherwise; 
procedure As(n, b) Result: (a[n]); value n, b; integer n; 
real b; 


comment any identifier occurring within the As is specified 
to be local to the As; 
begin integer m; real db; a[l] := exp(—b)/b; 
if n=1 then go to exitAs; db := 1/b; 
for m := 2 step 1 until n do alm] := a[l]+dbx 
(m—1)Xa{m--1] 


exitAs: end As; 
procedure Bs(n, a) Result: (b[n]); value n, a; integer n; 
real a; 


comment any identifier occurring within the Bs is specified 
to be local to the Bs; 

begin integer m; real otherwise; if a=0 then begin if 
mod(n—1, 2)=0 then begin bln] := 2/n; 
go to exitBs end; b[n] := 0; go to exitBs end; 
if abs(a)<alim then begin delta := gamma; 
if mod(n—1, 2)=0 then begin r := 2/n; 

epsilon := rXdelta; s:=r; k := 0; a2 := af2; 


Even: k := k+2; rv := rXa2x (n+k—2)/(k(k—1)(n+k)); 
s := str; if r>epsilon then go to Even; 
b[n] := s+r; go to exitBs end; 
r := 2xXa/(n+1): omega := abs(rXdelta); 
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- § t= rr; k:1; a2 := af2; 

Odd: kii= k+2; vr := rXa2x (n+k—2)/(k(k—1)(n+k)); 
sg 1= ert if abs(r)>omega then go to Odd; 
b[n] := —(s+r); go to exitBs 

end; ae. := 1/a; jp := daxXexp(a); 
jm := (daf2)/jp; bl] := jp—jm; 
if n=1 then go to exitBs; ql := —1; q2 := 1; 
- form := 2 step 1 
until n do begin b[m] := qlXjp—jm+ 
q2x daX b[m— 1]; 
- ql := —ql; q2 := q2+1 end 


exitBs: _end Bs; : 
procedure Result(coefl); real coef1; 
comment RESULT computes Ep, Em, ca, ca2, cb, cb2, DEa, 


DEb, s, il, 12, 78, nn, haa, hab, hbb. Important: 
“RESULT and any identifier occurring within the - 
RESULT enter SOLI as nonlocal entities; 
begin r:= raXbr; rp{l]:= r; forc.:= 2 step 1 until 
n+4 do rp[e] := rp[e—1]Xrp[l]; p := rXsum; 
pt := rXdif; ks := rp[n+3]Xzss; 
for c:= 1 step 1 until n+3 do begin As(c, p) 
Result: (a[c]); Bs(c, pt) Result: (b[c]) end; 
lilya := 0; form := 0 step 1 until n do lilya := 
lilya+be[n+1, m+1]X (a{n—m+2]X 
(b{m+1]+b[m+3]) —b[m-+2]X (a[{n—m+1] 
+a([n—m+83])); s := ksXlilya: 1112 := 2xXs; 
kil := ksXza/r; exe := 0; for m := 0 step 1 


unti} n—1 do exe := exc+be[n, m+1]X (a[n— 
m-+1)X (b[m+1]+b[m+3]) —b[m+2]x (a[n—m]+- 
a{fn—m+2])); il := klxXexc; pppt := p+pt; 


k2 := rp[2Xn]Xzsbd; for c := 1 step 1 until 
2xXn do begin As(c, pppt) Result: (a[c]); 
Bs(c, pppt) Result: (b[c]) end; sue := 0; 
for m := 0 step 1 unti] 2Xn—1 do sue := 
sue+be[2Xn, m+1]xXa[2Xn—m]Xb[m+1]; 

i2 := k2xXsue; pmpt := p-—pt; 

ptmp := —pmpt; k3 := = rp[4]xz65; 

for c := 1 step 1 until 4 do begin As(c, pmpt) 
Result: (a[c]); Bs(c, ptmp) Result: (b[c]) end; 
i8 := k3x (a[2]x (b[1]+2xb[3}) —b[2]x (a[1]+2x 
a[3})+a[4]x b[3]—a[3]x b{4)) ; 


comment Two-center integrals s, i1, 12, and 13 were computed 


{see Algorithm 110, “Quantum Mechanical Integrals of Slater- 
Type Orbitals,” by Yuri A. Kruglyak and ID. R. Whitman, 
Comm. ACM (July 1962)]; nn := zz/(2Xr); e2pnn := e2+nn; 
haa := el—e2+nn; hbb := e2pnn—i3; hab := e2pnnXs—il; 
den := 2—sX1il2; bsr := haa+hbb—habxX1il2; 

root := sqrt(bsr[2—2x den X (haaX hbb—hab{2)); 

Ep := (bsr+root)/den; Em := (bsr—root)/den; 

ans(f] := Em; DEa := coef1x(e2—Em); 

DEb := coeflX(el—Em); Emhaa :=. Em—haa; 

Emhbb := Em—hbb; ES := EmxXs; habmES := hab—ES; 
caDcb] := habmES/Emhaa; chDca2 := habmES/Emhbb; 
if abs(Emhaa)>abs(Emhbb) then begin col := caDcbif2; 
cb2 := 1/(1+1i112xcaDebl+col); ca2 := cbh2Xcol; 

ca := sqrt(ca2); cb := ca/caDcbl go to NATA end; 
co2 := cbhDca2t2; ca2 := 1/(1+1i112xcbDea2+co2); 
cb2 := ca2Xco2; ca := sqrt(ca2); cb := caXcbDca2 


NATA: end RESULT; 
Begin of program: be[l, 1] := be{2, 1] := be[2, 2] := 1 


for q := 3 step 1 until 8 do begin be{q, 1] := 1; for t := 2 


COLLECTED ALGORITHMS (cont.) 


step 1 until q—1 do be[q, t] := be[q—1, t—1]+bce[q—1, t); 
be[q, q] := 1 end; 


IZM: 


KOM: 


CLEV: 


KHAR: 
CASE: 


g:= 1; for m := 1 step 1 until 2xn do g := g/m; 
G [2Xn]:=g; asa := za/n; zsap[l] := zsaX2; 
for c := 2 step 1 


until 2Xn+1 do xsap[c] := zsap[c—1)xXzsap([1]; 
D := gzsap[2Xn+1])XG[2xn]; DS :=  sqrt(D); 
el := —zsap[2]X0.125x (4xn—-3)/(2xn-—1); 

zsb := zbX0.5; sum := zsa+zsb; dif := zsa—zsb; 
zsb5 := zsbf5; zss := DSXsqrt(zsb5); 


zsbd := zsbXD; 25 := 2XzaxXzsb5; zz := zaXzb; 
e2 := —(zsbf2)/2; br := 0.5/coef2; f := 1; 
ans({1]:= El; ra := ri; : 

ra := ra+drl; if ra>rkl then ra := ra+drkl; 
f:=f+1; RESULT (coefl); if ans [f]—ans([f—1]S 
acc then begin if ra>rk2 then go to IZM; 
go to KOM end; ansf := ans{f]; dl := ra; 

ra := ra+dr2; RESULT (coefl); if el<e2 then 
begin if Em—elSasy/ra<rk3 then go to CLEV; 
goto KHAR end; if el2e2 then begin if Em—e2S 
asy \ra<rk3 then go to CLEV; go to KHAR end; 

ra := dl; ans[f—1] := ansf; 

ra := ra—dr3; f := f+1; RESULT (coef1); 
if ans(f]—ans[f—-1]Saccl then go to CASE; 
go to IZM end SOLI; 
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ALGORITHM 112 

POSITION OF POINT RELATIVE TO POLYGON 
_ M. Suimrat 

University of Alberta, Calgary, Alberta, Canada 


Boolean procedure POINT IN POLYGON (n, x, y, «0, y0); 
value n, x0, y0: integer n; array x,y; real x0, 10; 
comment if the points (z[7], y[7]) @ = 1, 2,--+, mn) are—in 
this cyclic order—the vertices of a simple closed polygon and 
(20, yO) is a point not on any side of the polygon, then the pro- 
cedure determines, by setting “‘point in polygon’’ to true, 
whether (x0, y0) lies in the interior of the polygon; 
begin integer i; Boolean b; 
z[n+1):=2[1]); yln+1]):=y[l]; 6:= true; 
for? ‘= 1 step 1 until do 
if(y<ylt] =y>yle+1)) A 
x0 — aft] — (yO — y[z]) X (wl + 1] — ale])/yle + 1) — ylz]) <0 
then 6 := — 6; 
POINT IN POLYGON := - }b; 
end POINT IN POLYGON 


CERTIFICATION OF ALGORITHM 112 


POSITION OF POINT RELATIVE TO POLYGON ~ 


[M. Shimrat, Comm. ACM, Aug. 1962] 
RicHarD HackKER 
The Boeing Co., Seattle Wash. 


The Boolean procedure POINT IN POLYGON was programmed 
in Fortran for the IBM 7090. The algorithm gave satisfactory 
results except for'a case such as the following: 


Let the polygon points be: (0, 0), (1, 0), (2, 1), (1, 2), @, 2). 


In this case the procedure would not detect that the point (1, 1) 
is in the polygon. However, the correct result was obtained by 
changing: 

if y<ylt] = y > ylit+1)A 
to read: 


if (YOsy[i] = yO > yfit+1DA 
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ALGORITHM 113 

TREESORT 

Rosert W. Fioyp 

Computer Associates, Inc., Woburn, Mass. 


procedure TREESORT (UNSORTED, n, SORTED, k); value 
n, k; 

integer n,k; array UNSORTED, SORTED; 

comment T'REESORT sorts the smallest k elements of the n- 
component array UNSORTED into the k-component array 
SORTED (the two arrays may be the same). The number of 
operations is on the order of 2 X n + k X log:(n). The number 
of auxiliary storage cells required is on the order of 2 X n. It is 
assumed that procedures are available for finding the minimum 
of two quantities, for packing one real number and one integer 
into a word, and for obtaining the left and right half of a packed 
word. The value of infinity is assumed to be larger than that of 
any element of UNSORTED; 

begin integer i,j; array m[1:2 X n — 1); 

for 1 := 1 step 1 until n do m[n + i — 1] := pack (UNSORTED 
[i],n+7%— 1); 

for 7 := n — 1 step — 1 until 1 do m{i] := minimum (m[2 x 4], 
m2 X «+ 1)); 

for j := 1 step 1 until k do 
begin SORTED [j] := left half (m{1]); i := right half (m{1)); 

m|t] := infinity; 
for? := i + 2 whilei > 0 do m[i] := minimum (m[2 X i], m[2 X 
7 + 1)) 

end 

end TREESORT 
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ALGORITHM 114 

GENERATION OF - PARTITIONS WITH CON- 
STRAINTS. — 

FRANK STOCKMAL 

System Development Corp., Santa Monica, Calif. 


procedure CP GENERATOR (N, K, H, p, F, Z); integer 
N,K,H; integer array p; Boolean F, Z; 

comment CP GENERATOR generates a partition of N into K 
parts, no part greater than H. Each partition is epee by 
the array of parts p[1] thru p[K], where p[i] 2 p[2] & --: = p[K]. 
Initial entry is made with F = true and Z = true if parts = 0 
are allowable, or F = true and Z = false if only nonzero parts 
are desired. Upon initial entry, procedure ignores the input 
array p, sets F = false, and generates the initial parti- 
tion. Subsequent calls made with F = false will cause 
procedure to operate upon the input partition to produce 
another partition if one exists, so that all possible unpermuted 
partitions with the specified constraints will be produced if CP 
GENERATOR is allowed to operate upon its previous output. 
When this scheme is followed, and initial entry is made with 
F = true, Z = true, K = N, = N, all possible un- 
permuted partitions of N will be produced. Upon generating 
the last partition, procedure resets F to true. The input param- 
eters are restricted as follows: K 21, H 21, pf{lj 2 p(2] 
2:-- 2 p[K]. For Z = true, N is restricted to the range 
0S NS KH, and forZ = false, K SN 3 KH. A call should 
not be made with p[{l] — p[K] < 2 and F = false; 

begin integer a, b, 7, 3, 9, 73 
if F then go to first; 

= pll] — pl2] — 2; 7 := 2; 

test: if p[l] — plj] 2 2 then go to divide; 
a:=a—-1+ 5X (pli]—pl tl); g:=474+1; goto test; 

coe if Z then go to alpha; 


= N—K; p[K]:=0; goto beta; 
alpha: a:=N; pl{K]:=—-1; 
beta: F := false; j := K; 


divide: b:= H—1-— pj]; q:= entier @/b); r:=a—bX q; 
for 7 := 1 step 1 until g do p{] := H; 
if gq = K then go to last; 
fori := q+ 1step1 until j do p[t] := 1+ ply]; 
plat+1):=74+ plat 1); 
if p[1] — p[K] 2 2 then go to exit; 

last: F := true; 

exit: end CP GENERATOR 
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ALGORITHM 115 PERM is indeed the fastest permutation generator so far en- 
PERM countered. For n = 8, PERM is 25% faster than PERMUTE 


(989 against 1316 sec.). The values for 7, are (for a definition of 


H. F. TROTTER - rn , see Certification of Algorithm 71, Comm. ACM, Apr. 1962): 


Princeton University, Princeton, N. J. 
procedure PERM (z,n); value n; 
integer 7; array Zz; Tr 92 .95 .98 


comment This algorithm was inspired by the procedure 
PERMUTE of Peck and Schrack (Algorithm 86, Comm. ACM 


Apr. 1962) and performs the same function. Each call of PERM 
changes the order of the first components of x, and n! succes- CERTIFICATION OF ALGORITHM 115 


sive calls will generate all n! permutations. A nonlocal Boolean PERM [H. F. Trotter, Comm. ACM, Aug. 1962] 
variable first’ is assumed, which must be true when PERM is E. S. Pxsrt.uies 


first called, to cause proper initialization. The first call of PERM Michi : : ‘ : 
; ichi ni . 
makes Sirst’ false, and it remains so (unless changed by the chigan State University, East Lansing, Mich 


external program) until the exit from the (n!)th call of PERM. PERM was translated into Fortran for the CDC 160-A, and 
At that time z is restored to its original order and ‘first’ is made it performed correctly. For n = 8, this method requires 2822 
true. seconds. For comparison, Algorithm 86, PERMUTE, was trans- 

The excuse for adding PERM to the growing pile of permuta- lated and run on the same machine, requiring 3710 seconds as 


tion generators is that, at the expense of someextra-own storage, | Opposed to 1316 when run on an IBM 1620. 
it cuts the manipulation of z to the theoretical minimum of n! 
transpositions, and appears to offer an advantage in speed. It 
also has the (probably useless) property that the permutations 
it generates are alternately odd and even; 
begin own integer array p, d[2:n]; integerk,q; real t; 

if first then initialize: 
begin for k := 2 step 1 until n do 

begin pik] := 0; dk] := 1 end; 

jirst := false 
end initialize; 
k := 0; 
INDEX: p[n] := q := p{n] + din]; 

if gq = n then 

begin d[n] := —1; goto LOOP end; 

if q ~ Othen go to TRANSPOSE; 

q{n} := 1; k:=k+1; 

LOOP: if n > 2 then begin 

comment Note that n was called by value; 
n:= n— 1; go to INDEX end LOOP; 

Final exit: q := 1; first := true; 
TRANSPOSE: q:= qa +k; t:= 2lql; 

alg) := 2[¢+ 1); zig+1:=¢ 

end PERM: 


CERTIFICATION OF ALGORITHM 115 
PERM [H. F. Trotter, Comm. ACM (Aug. 1962)] 
G. F. Scorack 
University of Alberta, Calgary, Alb., Canada 

PERM was translated into Fortran for the IBM 1620 and it 
performed satisfactorily. Timing tests were carried out under the 
same conditions as for PERMUTATION (Algorithm 71) and 
PERMUTE (Algorithm 86). 
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ALGORITHM 116 

COMPLEX DIVISION 

Rosert L. Smita 

Stanford University, Stanford, Calif. 


procedure complexdiv (a, b, c,d) results: (e, f); 

value a, 6, c,d; real a, b, c,d; 

comment complerdiv yields the complex quotient of a + ib 
divided by c ++ id. The method used here tends to avoid arith- 
metic overflow or underflow. Such spills could otherwise occur 
when squaring the component parts of the denominator if the 
usual method were used; 

begin real r, den; 
if abs (c) = abs (d) then 
begin r := d/c; 

den :=c+rxXd; 
e:= (a+b xX r)/den; 
f:= (0 —aX r)/den; 


else 
begin r := c/d; 
den :=d+rxX c; 
e:= (aX r+ b)/den; 
f:= (Xr — a)/den; 
end 
end complexdiv 
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ALGORITHM 117 
MAGIC SQUARE (EVEN ORDER) 
D. M. Conuison 


Elliott Brothers (London) Limited, Borehamwood, Herts., 
England 


procedure magiceven (n, x); value n; integer array t; in- 
’ teger n; 
comment the method of Devedee for even n is described in 
‘Mathematical Recreations’ by M. Kraitchik, pp. 150-2. Enter 
with side of square n to produce a magic square of the integers 
1— nf 2inz, where n 2 4; 
begin integer a,b, n2,nn; Boolean p, q, 7; 
n2:=n+2; nmni=nXN; 
begin 
procedure alpha (p, q, a, h); 
Boolean h; 
Comment pattern 0/0/0/ -:: ; 
begin integer 1; 
for r := p step | until ¢ do begin 
zlr,a] := ifh then (@ X n—n-+1r) else (nn —aXn-+ 
1+n-—r); h:= shend; 
end alpha; 
procedure beta (p, q, a,h); value p, q,4,h; integer p, q, @; 
Boolean h; 
comment pattern] -—1—1-—..-. 
begin integer 1; 
for r := p step 1 until ¢ do begin 
z[r,a):= ifh then [nn —aXn+71) else @Xn+1-—7); 
h:= -h end; 
end beia; 
procedure gamma (p, q, a, h); 
Boolean h; 
comment pattern /—/—/— --: ; 
begin integer r; 
for r := p step 1 until ¢ do begin 
z[r,a] :=ifhthen (nn-—aXnt+n—rt+l1)elseaXn 
+1-—r); h:= 4h end; 
end gamma; 
comment program begins; 
pi=qi= (n—(n+ 4) X4=0)5r:= true; 
for a := 1 step | until (n2 — 1) do begin 
beta (l,a —1,a,1r); alpha (a, n2 — 1, a, true); 
x[n2, a] := if qg then (nn — a X n + n2 + 1) else (n1n — aX 
n+ n2); 
alpha (n2 + 1,7, a, — q); 
q:=-aqg;5 r:=-rend; 
alpha (1,n2 — 1,72, — p); alpha (n2 + 2, n, n2, false); 
gamma (1,n2—1,n2+1,p); gamma (n2+ 2, n, n2 + 1, true); 
Qd:= Pp; 7 := true; 
for a := (n2 + 2) step 1 until n do begin 
beta (1,n —a,a,q); z[n-—a+l,al:=axn-—atl,; 
beta (n — a+ 2, n2 — 1, a,-true); 
if r then for b := n2, n2 + 1doz[b,a]:=nn-axXnt 
n-—~b-+1 
else begin z[n2, a] := nn —aX n+ 72; 
a[ln2+1,a]):=aXn—n2+1end; 
beia (n2 + 2,a—1,a,-117); alpha (a, n, a, true); 
q:= 44 r:=-7rend; 


value p,q, a,h; integer p, q, a; 


bd 


value p, g,a,h; integer 7, q, @; 
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for a := n2,n2+ 1 do for b := n2,n2+1d0 
z[b, a] := if p then (@ X n — n+ Db) else (n1n —-GAXn+n—- 
b + 1); 
if — p then begin 
for a := n2,n2+1doz(n2—lal:=axXn—72+4+2; 
for b := n2,n2+1doz[b,n2+ 2):=nX n2—2xX n+ b end; 
end end magiceven 


CERTIFICATION OF ALGORITHMS 117 AND 118 
MAGIC SQUARE (ODD AND, EVEN ORDERS) 
[D. M. Collison, Comm. ACM, Aug. 1962] 


‘D. M. Co Luison 


Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 
Both algorithms were checked and timed, using a special ALGOL 


program, with the Elliott Aucou translator on the National- 
Elliott 803. The procedure for odd-orders was the slower: 


Procedure Size of Square Time 
Odd order 9 10 sec. 
19 45 sec. 
Even order 10 7 sec. 
20 23 sec. 


Because of the different methods used and the length of the even 
order procedure it was decided not to combine the two. The 
smallest square of even order generated is given below:— 


13 3 2 16 
8 10 11 5 
122 6 7 9 

1 15 14 4 


CERTIFICATION OF ALGORITHMS 117 AND 118 

MAGIC SQUARES (EVEN. AND ODD ORDERS) 
[D. M. Collison, [Comm. ACM, Aug. 1962] 

P. NAuR 

Regnecentralen, Copenhagen, Denmark 


_ MAGICEVEN needed the following correction: Within the 
body of procedure beta a left square bracket: ...then [nn... 
should be changed to a left parenthesis: ...then (nn... 

With this correction it has run successfully in the GreER ALGOL 
system. The squares of even orders from 4 to 20 were generated 
and checked for magicity in rows and columns, but not in 
diagonals. 

The algorithm contains 11 pairs of superfluous parentheses (10. 
of which are in conditional expressions) and if the assignments to 
n2 and nn are moved to the place just following “end gamma;” 
the inner block becomes unnecessary. 

MAGICODD ran without correction in G1IER ALGOL and pro- 
duced a few reasonable-looking squares. 

Run times are as follows: 


Procedure Size of square Time 

Magicodd 9 0.6 sec 
19 2.5 sec 

Magiceven 10 0.9 sec 
20 2.3 sec 


COLLECTED ALGORITHMS (cont.) 


CERTIF ICATIONS OF ALGORITHMS 117 and 118 
MAGIC SQUARE (ODD AND EVEN ORDERS) 

[D. M. Collison, Comm. ACM, Aug. 1962] 
K. M. BoswortH 
I.C.T. Ltd., Blyth Road, Hayes, Middlesex, England 

The statement within the Booleon procedure beta should be 
changed from 

z[ra] := if h then [nn—aXn-+r) else @Xn+1—-7); 

to 

z{r,a] := if h then (nn—aXn-+r) else (aXn+1—7r); 
The procedures were then tested on magic squares of order 
3 to 17 inclusive without fault. 
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ALGORITHM 118 

MAGIC SQUARE (ODD ORDER) 

D. M. Couiison 

Elliott Brothers (London) Limited, Borehamwood, Herts., 
England 

procedure magicodd (n, 2); 
array <; 

comment for given side n the procedure generates a magic 
square of the integers 1 — n f 2. For the method of De la 
Loubére, see M. Kraitchik, ‘(Mathematical Recreations,”’ p. 
149. n must be odd and n 2 3; 

begin integer 1, j, k; 


value n; integer n; integer 


for 7 := 1 step 1 until n do 
for j := 1 step 1 until n do z{7, j] := 0; 
t:= (n+1)+2; g:=n; 


for k := 1 step 1 until n X n do begin 
ifz(t, 3] = Othen begin? :=7-—1; j:=j-— 2; 
ift<1ltheni:=i+n; ifj <1thenj:=j7+nend; 


ali, j] := k; 

t:=t+1; ift>ntheni:=i-—n; 
ji=jt+1; iff >nthenj :=j—- 7; 
end; 


end magicodd 


CERTIFICATION OF ALGORITHMS 117 AND 118 

MAGIC SQUARE (ODD AND, EVEN ORDERS) 
[D. M. Collison, Comm. ACM, Aug. 1962] 

D. M. Cou.ison 

Elliott Bros. (London) Ltd., Borehamwood, Herts., 
England 
Both algorithms were checked and timed, using a special ALGoL 


program, with the Elliott ALGoL translator on the National- 
Elliott 803. The procedure for odd orders was the slower: 


Procedure Size of Square Time 
Odd order 9 10 sec. 
19 45 sec. 
Even order 10 7 sec. 
20 23 sec. 


Because of the different methods used and the length of the even 
order procedure it was decided not to combine the two. The 
smallest square of even order generated is given below:— 


1 3 2 16 
8 10 11 5 
12 6 7 9 
1 15 14 4 


CERTIFICATION OF ALGORITHMS 117 AND 118 

MAGIC SQUARES (EVEN AND ODD ORDERS) 
[D. M. Collison, [Comm. ACM, Aug. 1962] 

P. Naur 

Regnecentralen, Copenhagen, Denmark 


MAGICEVEN needed the following correction: Within the 
body of procedure beta a left square bracket: ...then [nn... 
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should be changed to a left parenthesis: ...then (nn... 

With this correction it has run successfully in the GizeR ALGOL 
system. The squares of even orders from 4 to 20 were generated 
and checked for magicity in rows and columns, but not in 
diagonals. 

The algorithm contains 11 pairs of superfluous parentheses (10 
of which are in conditional expressions) and if the assignments to 
n2 and nn are moved to the place just following “end gamma;” 
the inner block becomes unnecessary. 

MAGICODD ran without correction in Grier ALGOL and pro- 
duced a few reasonable-looking squares. 

Run times are as follows: 


Procedure Size of square Time 

Magicodd 9 0.6 sec 
19 2.5 sec 

Magiceven 10 0.9 sec 
20 2.3 sec 


CERTIFICATION OF ALGORITHM 118 
MAGIC SQUARE (ODD ORDER) [D. M. Collison, 
Comm. ACM, Aug. 1962] 
Henry C. THACHER, JR.* 
Reactor Engineering Div., 
Argonne, Ill. 
* Work supported by the U. S. Atomic Energy Commission. 


The body of the procedure magicodd was tested on the LGP-30 
using the Dartmouth Ago. 60 translator. No syntactical errors 
were found. The procedure generated odd-arder magic squares 
satisfactorily. For orders up to 9, times were as follows (including 
output on the Flexowriter): 


Argonne National Lab., 


Order Time (sec) 
3 171 
5 422 
7 804. 
9 1285 
The 3 X 3 square was: 
4 3 8 
9 5 1 
2 7 6 


CERTIFICATIONS OF ALGORITHMS 117 and 118 
MAGIC SQUARE (ODD AND EVEN ORDERS) 

[D. M. Collison, Comm. ACM, Aug. 1962] 
K. M. Boswortu 
I.C.T. Ltd., Blyth Road, Hayes, Middlesex, England 

The statement within the Booleon precedure beia should be 
changed from 


z[r,a] 
to 


:= if 4 then |nn—aXn-+r) else @Xn+1—r); 


zir,a] := if ‘kh then (nn—aXn+r) else (aXn+1—r); 


The procedures ‘were then tested on magic squares of order 
3 to 17 inclusive without fault. 
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ALGORITHM 119 

EVALUATION OF A PERT NETWORK 
Burton EISENMAN AND MARTIN SHAPIRO 
United Nuclear Corp., White Plains, N. Y. 


procedure pert (nmaz, 1, j, te, st, emax, l, es, at); 

comment An algorithm describing an iterative procedure for 
evaluating a PERT network that permits the use of arbitrarily 
ordered activities and event identifiers such that an upper 
triangular matrix type of solution is unnecessary. 

It has been observed by investigations of PERT networks, 
that an N X N matrix whose rows are designated as. predecessor 
and whose columns are designated as successor events, has an 
entry in the (¢, j)-element representing the activity time re- 


quired in going from event 7 to event j7. By elementary transfor-’ 


mations, the matrix is transformed generally into an upper 
triangular matrix. The resultant upper triangular matrix is well 
ordered (i.e. any activity time appearing in a column is not 
dependent upon those activity times which appear in columns 
to the right of it). 

This precise manipulation generally demands considerable 
running time. By direct evaluation not requiring a collection of 
elementary transformations, it is possible to evaluate the net- 
work with considerable reduction of running time; 

integer nmazx, emax; 

real st; 

integer array 1, 7, 1; 

real array ite, es, at; 

comment Given the total number of activities, nmaz, the pre- 
ceding and succeeding event identifiers, 7, and j,, the cor- 
responding expected time, fe, for each activity, and the starting 
time, st, of the network, this procedure computes the early start 
and late finish times, es, and at, , for each event, /, , in the net- 
work; 

begin 

procedure scan (e, t, 1); 

integer e, ¢; 

imteger array I: 

comment Given the number of events, e—1, contained thus far 
in vector array, /, and an event identifier 7, or j, , stored in ?¢, 
this procedure scans the existing array, 1, to determine whether 
the event should be added to the list or not. If it is to be added, 
it becomes /, and e replaces the event identifier. If it is not 
added, k replaces the event identifier. ; 

begin 

integer k; 

if e = 1 then go to add; 
for k := e—1 step —1 until I do 


begin if ¢ = l{k] then 
begin t:=k; 
go to out 
end 
end; 
add: le] := ¢; 
t:= e; 
e:=e+1; 
out: 
end scan; 
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integer 1n, e, 8, t, k; 

real a, x; 

e:=1; 

for n.:= 1 step 1 until nmaz do 
t:= j[n]; 

scan (e, t, 1); 

jln] := ¢; 

t:= i[n]; 

scan (e, t, 1); 

a[n] := ¢ 


begin 


end; 

comment By means of the switch, s, we will either compute the 
activity times, af, , and transfer the values to the early start 
vector, es, , or we will compute at, without any transfer process, 
in which case the late finish times will be obtained.; 
emazx :=e—1; 


s:= 1; 
2:= 8t; 
sl: k := emag; 
for ¢ := 1 step 1 until emaz do 
atle] := a; 
82; for n := 1 step 1 until nmaz do 
begin if l{i[n]] > 0 then 
begin switch s := 61, 62; 
b1: z := abs (at[i[n]]) + te[n]; 
if x > abs (at{j[n]]) then go to /1; 
go to 12; 
b2: z := abs (atli[n]}]) — te[n]; 
if z < abs (at{j[n]}]) then 
1: at[j[n]] := — 2; 
12: 
end 
end; 
for e := 1 step 1 until emaz do 
begin _ if I[e] < 0 then 
begin if at[e]) < 0 then 
begin —=_l[e] := abs (I[e]); 
k:=k+1; 
83: atle] := abs (at[e]); 
go to 13 
end; 
go to 13 
end; 
if ai[e] = 0 then 
begin = ([[e] := — /[e]; 
k:=k—1; 
go to [3 
end; 
go to 83; 
13: 
end; 
if k ~ 0 then go to 82; 
switch s := gl, 92; 
gi: 8 := 2; 
for n := 1 step 1 until nmaz do 
begin ¢ := i[n]; 
i[n] := g{n); 
jin] := ¢ 


end; 
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a:=0; 
for e := 1 step 1 until emaz do 
begin es{e] := atle]; 


le] := abs (l[e]); 
if aile] > a then 


a:= atle| 

end; 
go to sl; 

g2: for ¢ := 1 step 1 until emaz do 
lle] := abs (l[e]); 

end pert 


CERTIFICATION OF ALGORITHM 119 [H] 

EVALUATION OF A PERT NETWORK [Burton Hisen- 
man and Martin Shapiro, Comm. ACM 6 (Aug. 1962), 
436] , 

L. SrEPHEN Coss (Recd. 10 Nov. 1964 and 7 Dec. 1964) 

Carnegie Institute of Technology, Pittsburgh, Pa. 


The procedure was tested on a CDC-G20, using the ALGoL 
compiler developed by Carnegie Tech. Before compilation was 
possible, the following modifications were required in order to 
make it a correct ALGoL 60 procedure. 

1. Insert after the end of scan 

switch sw2 := gl, g2; 

2. Modify comment ‘By means of the switch, s, --- 

to read 
comment By means of the switches, swl and sw2, --- 

3. Modify begin switeh s := 61, 62; 

to read 
begin switch swl := 61,62; go to swl [s]; 

4. Modify switch s := gl, 92; 

to read 

go to sw2 [s]; 
With these changes the procedure was operated successfully on a 
number of small test problems. 
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ALGORITHM 120 

MATRIX INVERSION II 

RicHarD GEORGE* 

Particle Accelerator Division pemonns National Labora- 
tory Argonne, Illinois 
* Work supported by the U. 8. Atomic neat Commission. 


procedure INVERSION II (n, a, epsilon, ALARM, delta); 

comment This is a revision of Algorithm 58. It accomplishes in- 
version of the matrix a, with the result stored in matrix a. The 
order of the matrix is n. If in the process of calculating, any 
pivot element has an absolute value less than epsilon, there 
will be a jump to the non-local label ALARM. The variable delta 
will contain the value of the determinant of the original matrix 
on normal exit, zero or a very small number on exit to ALARM. ; 

value 7; 

array a; 

real epsilon, delta; 

integer 17; 

begin 
array b, c[l:n]; real w, y; 
integer array z[{l:n];\ integer 7, j,k, 1, p; 


delta := 1.0; 
for j := 1 step 1 until n do 
2(j] = 3; 
for 7 := 1 step 1 until n do 
begin 
k:= 4; y:=aft,i]; b:=t-1; p:= i+1; 
for j := p step 1 until n do 
begin 
w := alt, Jj]; 
if abs(w) > abs(y) then 
begin 
k := j; 
yY i= w 
end; 
end; 


delta := delta X y; 
: absy) < epsilon then go to ALARM; 
= 1.0/y; 


foe j := 1 step 1 until n do 
begin 
cj] := af7, k]; 
alj, k] := aly, 4]; 
alj, i] := — cli] X y; 
blz] := alt, j] := alt, 3] X y 
end; 
ali, i] = y; 
j= elt]; 
2(t] := z[k]; 
zlk] := 3; 
for k := 1 step 1 until lJ, p step 1 until n do 
for j := 1 step 1 until |, p step 1 until n do 
alk, j] := alk, 3] — 6[3] & clk] 
end; 
for 7 := 1 step I until 2 do 
begin 


REPEAT: &k := 2 {i]; 
if k=1 then go to ADVANCE; 
for j := 1 step 1 until n do 
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begin 
w:=a {2, J]; 
a [t, j] := a [k, 3]; 
alk, j]:= w 
end; 
p= z {[t]; 
z |i] := z [k]; 
z[k] := p; 
delta := — delta; 


go to REPEAT; 
ADVANCE: end; 
end 


CERTIFICATION OF ALGORITHMS 120 AND 
MATRIX INVERSION BY GAUSS-JORDAN 

INVERSION II [R. George, Comm. ACM Aug. 1962] 
and gjr [by H. Rutishauser, quoted by H. R. Schwarz, 
Comm. ACM Febr. 1962] 

P. Naur 

Regnecentralen, Copenhagen, Denmark 


These two procedures were compared using the GisrR ALGOL 
system (30 bits for the normalized mantissa including sign). The 
following changes (in part dictated by the requirements of the 
compiler) were included: 

INVERSION II: (1) Epsilon was included in the value part. 
(2) The specification label ALARM was added. 

gjr: (1) The value part: value 7, eps was inserted. (2) The 
second a in the formal parameter part was taken out. 

With these changes both procedures ran smoothly through the 
compiler. In order to obtain a comparison each of them was tested 
as follows: With a given, rather large value of epsilon the pro- 
cedure was called to invert a segment of the Hilbert matrix. Upon 
alarm exit, the value of epsilon was divided by 10 and a fresh call 
was made. In this way an estimate of the largest permissible 
epsilon was obtained. When the inverse had been obtained, that 
element of it which was most in error was found through a com- 
parison with the accurate inverse as calculated by means of 
INVHILBERT (Algorithm 50, see certification above). A relative 
error was obtained through division by the largest element of the 
accurate inverse. 

This process was carried out for segments of the Hilbert matrix 
of orders 2 through 15. For orders above 9, the results of the in- 
version are dominated by errors. Below 9 we obtained the follow- 
ing output: 

Inversion by INVERSION II 


Maximum error Maximum error 


Order eps Determinant Sutser, Error Relative 

2 10—2 8 .333333310—2 2,2 2.9810~-8 2.4810—9 
3 10-3 4.629628410—4 2,2 5.01l10—5 2.6li0o—7 
4 10—4 1.653481410—7 8,3 3.0610—2 4.7210—6 
5 10-5 3.749000]li0—12 4,4 1.38101 7.7210—5 
6 10-7 §.360187510~-18 5,5 5.78103 1.31li0—3 
7 10—8 4,848552910~-25 5,5 3.70105 2.7710—3 
8 1o—10 =. 1.522100010—83 = 6,8 )—-3..38109 7.8410—1 


Similarly we got for gjr, and the ratio of errors of the two 
procedures: 
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Inversion by gir Ratio of errors 
Maximum error Maximum error INVERSION II 


Order eps Subser. Error Relative to gir 
2 10—2 2,1 2.9810—8 2.4810—9 1.0 
3 10—3 2,2 2.8610—6 1.4910—8 18 
4 10—4 4,3 1.0710—4 1.6510—8 290 
5 10—6 4,4 2.48 1.3910—5 5.6 
6 10-7 5,5 4.05103 9.1810—4 1.4 
7 10-8 8,5 4.32106 3.2410—2 . 086 
8 10o—10 7,7 5.55107 1.3110—2 60 


Although the superiority of gjr, which searches for the pivot 
in both columns and rows, over INVERSION II, which only 
searches in the next column, is well brought out in the last column 
of the second table the behavior for n = 7 is curious and ought to 
be confirmed elsewhere. 

As a further test both procedures were ‘used to invert the 
matrices produced by Algorithm 52, TESTMATRIX (see certifi- 
cation above). Again, the error of the inverse was found by a 
comparison with the known inverse. The comparison of the two 
procedures was made for orders 2 through 23 and revealed a sur- 
prisingly small difference of accuracy. Typical output was as 
follows: 


Location and size of max. error Ratio of errors 


INVERSION IT gir INVERSION II 
Order Subser. Error Subser. Error to gir 
5 5,5 8.9410—8 5,5 8.9410—-8 1.00 
10 10,10 3.7610—6 10,10 3.5210—6 1.07 
15 15,15 2.1210—5 15,15 1.7810—5 1.19 
20 20,20 6.8li0—5 20,20 6.7110—5 1.02 


The relative errors of the determinants calculated by INVER- 
SION II increased slowly with n, reaching 2.310—7 for n = 24. 
Typical execution times were found as follows: 


Order INVERSION II gir 
5 2 seconds 3 seconds 
10 5 “ce 8 ce 
15 16 ae 17 re 
20 53 as 57 “ 


However, it should be noted that owing to the automatic 
segmentation of the program into drum tracks in GiER ALGOL 
the execution time may vary somewhat from one program in which 
a procedure is used to another. The above times do not, in fact, 
refer to the same program. 


CORRECTION TO EARLIER REMARKS ON AL- 
GORITHM 42 INVERT, ALG. 107 GAUSS’S METHOD, 
ALG. 120 INVERSION II, AND gir [P. Naur, Comm. 
ACM, Jan. 1963, 38—40.] 

P. Naur 

Regnecentralen, Copenhagen, Denmark 


George Forsythe, Stanford University, in a private communi- 
cation has informed me of two major weaknesses in my remarks on 
the above algorithms: 

1) The computed inverses of rounded Hilbert matrices are com- 
pared with the exact inverses of unrounded Hilbert matrices, in- 
stead of with very accurate inverses of the rounded Hilbert 
matrices. 

2) In criticizing matrix inversion procedures for not searching 
for pivot, the errors in inverting positive definite matrices cannot 
be used since pivot searching seems to make little difference with 
such matrices. 

It is therefore clear that although the figures quoted in the 
earlier certification are correct as they stand, they do not sub- 
stantiate the claims I have made for them. 
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To obtain a more valid criterion, without going into the con- 
siderable trouble of obtaining the very accurate inverses of the 
rounded Hilbert matrices, I have multiplied the calculated in- 
verses by the original rounded matrices and compared the results 
with the unit matrix. The largest deviation was found as follows: 


Maximum deviation from elements of the unit matrix 


Order INVERSION II gjr Ratic 
2 —1.4919—8 —1.4919—8 1.0 
3 —4.77;9—7 —8.3419—-7 0.57 
4 —9.5419—6 —3.4319—-5 0.28 
5 —7.3219—4 —4.5819—-4 1.6 
6 —1.6110—2 —1.42;,—2 1.1 
7 —5.7819—1 —5.4719-1 1.1 
8 —1.20i:0—2 —1.38i01 8.7 
9 —4.91i01 —2.22i01 2.2 


This criterion supports Forsythe’s criticism. In fact, on the 
basis of this criterion no preference of INVERSION II or gjr can 
be made. 

The calculations were made in the Grrr ALGoL system, which 
has floating numbers of 29 significant bits. 
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ALGORITHM 121 

NORMDEV 

Davip SHAFER 

University of Chicago, Chicago, II. 


procedure NormDev(Random,A,z); 
procedure Random; real A,z; 
comment ‘NormDev’ uses (1) a procedure ‘Random(y)’ as- 
sumed to produce a random number, 0 < y < 1, and (2) the 
constant A = sgri(2/pt) X integral [0:1] exp(—2x12/2)dzx, to 
produce a positive normal deviate ‘z’; 
begin real y; 
Random(x); if x > A then go to large; 
x:= 2/A; 
1: Random(y); if y < exp(—2z{2/2) then go to EndND; 
Random(x); go to1; 
large: x:= («@ — A)/(1 — A); 
2: v2 := sqgri(l1 — 2 X log(z)); 
Random(y); if y < 1/z then go to EndND; 
Random(x); go to 2; 
EndND: end 


CERTIFICATION OF ALGORITHM 121 [G5] 
NORMDEV 
[David Shafer, Comm. ACM 6 (Sept. 1962), 482] 
M. C. Prke (Reed. 3 May 1965) 
Statistical Research Unit of the Medical Research Coun- 
cil, U. College Hospital Medical School, London. 


Algorithm 121 has the following error: The line 
2:a” := sqrt (1 — 2 X log (2)); 
should read 
2:2 := sqrt (1 — 2 X In (2)); 
With this correction NormDev has been run successfully on the 
ICT Atlas computer with the Atlas ALGoL compiler. 
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ALGORITHM 122 
TRIDIAGONAL MATRIX 
GERARD F. DIETZEL 

Burroughs Corp., Pasadena, Calif. 


procedure J7RIDIAG (n,A,U); 

integer n; array A,U; 

comment ‘This procedure reduces a real symmetric matrix A of 
order n to tridiagonal form (UT)AU (UT = transpose of U) by 
a sequence of at most (n—1)(n—2)/2 binary orthogonal trans- 
formations. Also, the matrix U is calculated. [Cf. W. Givens, 
‘Numerical computation of the characteristic values of a real 
symmetric matrix,’’ Report ORNL1574 (1954), Oak Ridge Nat. 
Lab., Tenn., and D. E. Johansen, ‘‘A modified Givens method 
for the eigenvalue evaluation of large matrices,’ J. ACM 8, 3 
(1961)]; 

begin real fact,cl,c2,locl,loc2,temp; integer 7,j,71,j2,j3,74,n1; 
comment Set array U = identity matrix of order n; 
for 1 := 1 step 1 until n do 


begin 
for j := i+1 step 1 until n do U[t,j] := U[j,7] = 0; 
U[z,z] := 1.0 

end; 


comment The reduction of the matrix A begins here. Only the 
upper triangular elements of A are used in the computation; 
nl :=n — 2; 
for 7 := 1 step 1 until nl do 
begin 
jfl:=ai+1; j2:=74+2; 
for j := 32 step 1 until n do 
begin 
if A[z,j] = 0 then go to lab; 
fact -= 1/ sqrt(Alt,s1]T2 + Alz,7]12); 
cl := fact X Aft,jl]; c2 := fact X Alt,y); 
focl := Af[jl,jl]; loc2 := Af[jl,7]; 
Al[jl,j1] := clf2 X locl + 2.0 X cl X c2 X& loc? + c2T2 X 


Afi,a]; 

Afjl,j] := —cl X c2 X.locl + (cl1T2 — c272) X loc2 + cl X 
c2 X Alj,a]; 

Alj,j] := c2T2 * locl — 2.0 K cl X c2 XK loc2 + clf2 X 
Alia]; 

pBi= iJ +1; 

for k := j3 step 1 until n do 

begin : 


temp := A(j1,k]; 
Afjl,k] := cl X temp + c2 & Afy,k]; 
A[j,k] := —c2 X temp + cl X A[j,k] 


end; 
fas=j—); 
for k := 72 step 1 until 74 do 
begin 
temp := Al[jl,k]; 
A[jl,k] := cl X temp + c2 X Afk,y7); 
Afk,j] := —c2 X temp + cl X Alk,7] 
end; 
Af[i,j1] := cl X A[z,j1] + c2 X Alisa]; 
Alt,j] := 0; 


for k := 1 step 1 until n do 
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begin 
temp := U{k,j1]; 
U[k,j1] := cl X temp + c2 X U[k,J]; 
U[k,j) := —c2 X temp + cl X U{k,j] 
end; , 
lab: end 


end; 
for 1 := 1 step 1 until 7 do 
for j := i+1 step | until n do 
Alj,t] := Alt,i] 
end TRIDIAG 


CERTIFICATION OF ALGORITHM 122 

TRIDIAGONAL MATRIX [Gerard F. Dietzel, Comm. 
ACM 5 (Sept. 1962), 482] 

Peter Naur (Recd 27 Sept. 63) 

Regnecentralen, Copenhagen, Denmark 


TRIDIAG needed the following corrections: 
1. Insert k among the local integers to read: 
integer i, j, ji, j2, 33, j4, ni, k; 
2. At the end of line 5 of the procedure body, insert the colon to 
read U[j, 7] := 0; 
3. Change the round parenthesis to a square bracket following 
fork := j3--- toread temp := Al[jl, k]; 


With these corrections the algorithm worked satisfactorily with 
the GieR ALGOL system, As a test it was tried with the following 
matrix: 


HBH TESTMATRIX(), 1] = HBH TESTMATRIX(:, 3] 


eT ey G24) 
(ef. the Certification of Alg. 85, Comm. ACM 6 (Aug. 1963), 447). 
As a check the resulting matrix was rotated back again, using the 
resulting U-matrix, and the largest deviation of any element from 
the original was found. 

For comparison the figures obtained by using the algorithms 
given by Wilkinson in Numerische Mauhematik 4 (1962), 354-376, 
may be used. Wilkinson’s algorithms use Householder’s method of 
obtaining the tridiagonal form. It should be noted that the devi- 
utions given in the table below for Householder’s method refer to 
the final result of obtaining the eigenvalues and vectors, and not 
only the tridiagonal form, and thus include error contributions 
from a rather longer chain of calculations than the ones given for 
TRIDIAG. The times, however, only refer to the tridiagonalisa- 
tion process in both cases. 


ll 


n=5 n= 10 n=15 

Largest deviation 

TRIDIAG, 

householder tridiagonalisation 
Time of execution, in GIER 

ALGOL, seconds 
TRIDIAG 2 7 34 
householder tridiagonalisation 1 4 10 


1.45—-7 7.0i0—7 2.40 — 6 
1.4% —7 1.30 —6 


These figures clearly demonstrate the superiority of the House- 
holder process. Since, in addition, the Householder method in the 
form given by Wilkinson uses much less storage for variables, 


Algorithm 122 cannot be recommended. 
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ALGORITHM 123 

REAL ERROR FUNCTION, ERF(z) 

MartTIn CRAWFORD AND Ropers TECHO 

Georgia Institute of Technology, Atlanta, Ga. 

real procedure Erf(x); real 2; 

comment (xr) = Erf(x) = (2/+/m) fi e™ du can be computed 
by using the recursive relation for derivatives with @(z) = 


(2/+/n)e-2", where @) (x) = —2Qxvb(™-D (x) — 2(n—2)H("- (x), 
for n = 2, 3,--:. The Taylor’s series expansions of ®(ax) are 
taken about k+1 points on the interval 0 < a, S x and summed 
to get B(x); 
begin real 4,U,V,W, Y,Z,T; integer N; 
Z:=0; 1: if2 #0 then 
begin if 0.5 < abs (x) then A := — sign (x) X 0.5 
else A := — 2; 
U := Ves = 1, 128387917 K exp(—272); Y:=T:=-VxX 
A; N :=1; 
he if abs(T) 2 10— 10 then 
begin N:=N+1; W: =—-2X2xV—-2XU x (N-2); 
Tin TX WX AMV XN); 
U:=V; V:=W; Y:= Y+T; goto2 end; 
Z:=Z+Y; «:=2x+A; gotol end; 
Lirf := Z end Erf 


CERTIFICATION OF ALGORITHM 123 

REAL ERROR FUNCTION, ERF (x) [Martin Craw- 
ford and Robert Techo, Comm. ACM, Sept. 1962] 

Henry C. THACHER; JR.* 


Argonne National Laboratory, Argonne, Ill. 
* Work supported by the U. 8S. Atomic Energy Commission. 


The body of Erf(x) was tested using the Dartmouth SCALP 
compiler for the LGP-30. For z = 0(0.01)0.3, the results agreed 
with tabulated values to 8 in the 7th decimal place, and for « = 
0.4(0.2)1.6 the error was less than 1 in the 6th decimal. These 
results are compatible with the roundoff error in the arithmetic 
used. The computing time increased rapidly (by a factor of more 
than 10) as z increased from 0.01 to 1.6. 

The following comments should be considered by users of the 
algorithm: . 

1. The parameter z should be called by value, both to allow the 
use of expressions, and also to avoid destruction of the actual 
parameter. 

2. The constant »—10 in statement 2 determines the accuracy of 
the computation. Its value should be adjusted to the arithmetic 
being used, and the accuracy required. A machine-independent 
test could be made by substituting if Y — T = Y then - 

3. For large z, the error function is more efficiently calculated 
from the Laplace continued fraction for erfc(x). Algorithm 180 
is based on this method. 
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REMARK ON ALGORITHM 123 

ERF(xz) [Martin Crawford and Robert Techo, 
ACM, Sept. 1962] — 

D. IsBerson 

Elliott Brothers (London) Ltd. 

Elstree Way, Borehamwood, Herts., England 


Comm. 


(1) The specification value z; was added to allow x to be an 
expression and to prevent side effects. 
(2) The algorithm was then modified to give the Gaussian 
integral (1/+/2r) f*. exp(—4u?) du by 
(a) changing its name to Gauss (x), 
(b) inserting z := r*0.70710678; immediately beforeZ :=0; , 
and 
(c) changing the final statement to 
Gauss :=-(Z+1)/2 end Gauss 
(3) The algorithm with the above changes was tested on a 
National Elliott 803 computer using the Elliott-ALGoL translator 
with »—8 substituted for »—10. It was found to produce wrong 
answers when x = +1 (corresponding to Erf(+1/v/2)) giving 
0.5 + 0.3467899 instead of 0.5 + 0.3413447. 


REMARK ON ALGORITHM 123 

ERF(z) [Martin Crawford and Robert Techo, Comm. 
ACM 6 (Sept. 1962), 483; 6 (June 1963), 316; 6 (Oct. 
1963), 618] 

STEPHEN P. BARTON AND JOHN F. WAGNER (Recd 2 Dec. 63) 

General Telephone and Electronics Laboratories, Bayside, 
New York 


This algorithm may err when the Taylor series expands about a 
reot of the nth-order Hermite polynomial; one such error has 
already been. noted [Remark on Algorithm 123, D. Ibbetson, 
Comm. ACM 6 (Oct. 1963), 618]. The difficulty springs from the 
Taylor-series truncation criterion, which assumes that the magni. 
tude of successive terms in the Taylor series decreases. This is not 
always so, as may be seen by relating 


©) (7) = (n 2 1) 


to the Hermite polynomial H,,(z), which can be defined as 


H, (x) = (—1)%e? 


da” 
2 —22 
dx” (e*). 
Therefore 


W) = So (De Hea), 
As a result, (2) vanishes when z is a root of H,-1(z) and the 
Taylor series may be terminated prematurely. 

The algorithm was translated into Fortran II and run on a 
Scientific Data Systems 910 computer (39-bit mantissa) with the 
following changes: 
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(1) The argument was decremented by 0.25 rather than 0.5. 

(2) The truncation criterion for abs (JT) was 10~? rather than 
10719, 

Errors, detected for x = 1/+/2 and z = 2.652, were traced to the 
above described premature truncation of the relevant Taylor 
series. These arguments correspond to the roots of H2(x) and 
Hy(z). 

The program was therefore modified to sum a fixed number of 
terms, with special attention to the difficulties that might arise 
when expanding about roots of H,(z). In particular, in Algorithm 
123, line 9, the coe‘ficient, A*/n!, of the nth term in the Taylor 
expansion, is obtained via the intermediate step of dividing the 
(n—1)-term, T, by the (n—1)-derivative, V. The possibility of 
dividing by V = 0 when the Taylor expansion takes place about 
roots of H,-2(z) was avoided by modifying the program to com- 
pute coefficients directly from the recursion relation, 


An/n! = [A™1/(n—1)![A/n]. 


In selecting the number of terms to be included in each Taylor 
series, consideration should also be given to the size of the stand- 
ard decrement (specified as 0.5 in line 3 of Algorithm 123), for it 
is the combination of these two parameters which largely deter- 
mines the accuracy and running time. A brief survey suggested 
that at least 10-digit accuracy could be obtained if a decrement of 
0.4 were employed with 16 terms in each Taylor series; this resulted 
in an average running time of about 3.5 seconds per computation 
for arguments in the range 0 S x S 5.0. 


REFERENCE: H. Marcenau and G. M. Murpnuy, The Mathe- 
matics of Physics and Chemistry, pp. 119, 122. D. van Nostrand, 
1943. 


REMARKS ON: 

ALGORITHM 123 [S815] 

REAL ERROR FUNCTION, ERF(z) 
[Martin Crawford and Robert Techo Comm. ACM 5 
(Sept. 1962), 483] 


ALGORITHM 180 [S15] 
ERROR FUNCTION—LARGE X 
{Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 314] 


ALGORITHM 181 [S15] 
COMPLEMENTARY ERROR FUNCTION— 
LARGE X 

[Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 315] 


ALGORITHM 209 [S15] 
GAUSS 
[D. Ibbetson. Comm. ACM 6 (Oct. 1963), 616] 


ALGORITHM 226 [S815] 
NORMAL DISTRIBUTION FUNCTION 
[S. J. Cyvin. Comm. ACM 7 (May 1964), 295] 


ALGORITHM 272 [S15] 
PROCEDURE FOR THE NORMAL DISTRIBUTION 
FUNCTIONS 

[M. D. MacLaren. Comm. ACM 8 (Dec. 1965), 789] 


123-P 2- R1 


ALGORITHM 304 [815] 
NORMAL CURVE INTEGRAL 
(I. D. Hill and S. A. Joyce. Comm. ACM 10 (June 


1967), 374] 


I. D. Hitt ann S. A. Joyce (Recd. 21 Nov. 1966) 

Medical Research Council, 

Statistical Research Unit, 115 Gower Street, London 
W.C.1., England 


These algorithms were tested on the ICT Atlas computer using 
the Atlas ALGoL compiler. The following amendments were made 
and results found: 


ALGORITHM 123 

(i) value xz; was inserted. 

(ii) abs(T) < 1-10 was changed to Y—T= Y 
both these amendments being as suggested in [1]. 

(iii) The labels 1 and 2 were changed to L1 and L2, the go to 
statements being similarly amended. 

(iv) The constant was lengthened to 1.12837916710. 

(v) The extra statement xz := 0.707106731187 X x was made 
the first statement of the algorithm, so as to derive the 
normal integral instead of the error function. 

The results were accurate to 10 decimal places at all points 
tested except x = 1.0 where only 2 decimal accuracy was found, as 
noted in [2]. There seems to be no simple way of overcoming the 
difficulty [3], and any search for a method of doing so would 
hardly be worthwhile, as the algorithm is slower than Algorithm 
304 without being any more accurate. 


ALGORITHM 180 
Gi) T := —0.56418958/r/exp(v) was changed to 
T := —0.564189583548 X exp(—v)/x. This is faster and also 
has the advantage, when »v is very large, of merely giving 0 
as the answer instead of causing overflow. 
(ii) The extra statement x := 0.707106781187 X xz was made. 
as in (v) of Algorithm 123. 
(iii) form := m-+1 waschanged to form := m+ 2. m+1 
is a misprint, and gives incorrect answers. 
The greatest error observed was 2 in the 11th decimal place. 


ALGORITHM 181 
(i) Similar to (i) of Algorithm 180 (except for the minus sign). 
(ii) Similar to (ii) of Algorithm 180. 
(iii) m was declared as real instead of integer, as an alternative 
to the amendment suggested in [4]. 
The results were accurate to 9 significant figures for x < 8, 


but to only 8 significant figures for z = 10 and x = 20. 


ALGORITHM 209 
No modification was made. The results were accurate to 7 decimal 
places. 


ALGORITHM 226 
(i) 10 fT m/(480Xsqrt(2X3.14159265)) was changed to 
10 f m X 0.000831129750836. 
(ii) for 7 := 1 step 1 until 2 X n do was changed to 
m:=2Xn; fort := 1 step 1 until m do. 
(iii) —(iXb/n) fT 2/8 waschanged to —(tXb/n) fT 2 X 0.125. 
(iv) ifi =2xXn-—1 waschanged to ift = m—1 
(v) b/(6XnX sgrt(2X3.14159265)) was changed to 
b/(15.0397696478X n). 
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Tests were made with m = 7 and m = 11 with the following 
results: 


Number of significant 
jigures correct 


Number of decimal 
places correct 


x 
m= 7 m= 11 m= 7 m= 11 
—0.5 7 11 7 11 
—1.0 7 10 7 10 
—1.5 7 10 8 10 
—2.0 7 9 8 10 
—2.5 6 9 8 11 
—3.0 6 7 8 9 
—4.0 5 7 10 11 
—6.0 2 1 12 10 
—8.0 0 0 ll 9 


Perhaps the comment with this algorithm should have referred 
to decimal places and not significant figures. To ask for 11 sig- 
nificant figures is stretching the machine’s ability to the limit, 
and where 10 significant figures are correct, this may be regarded 
as acceptable. 


ALGORITHM 272 
The constant .99999999 was lengthened to .9999999999. 

The accuracy was 8 decimal places at most of the points tested, 
but was only 5 decimal places at zx = 0.8. 


ALGORITHM 304 
No modification was made. The errors in the 11th significant figure 
were: 


abs (x) x > 0 = upper x > 0 # upper 
0.5 1 1 
1.0 1 2 
1.5 218(5) 2 
2.0 25° (0) 4 
3.0 0 0 
4.0 2 3 
6.0 6 0 
8.0 14 0 
10.0 23 0 
20.0 35 0 


® Due to the subtraction error mentioned in the comment section 
of the algorithm. Changing the constant 2.32 to 1.28 resulted in 
the figures shown in brackets. 


To test the claim that the algorithm works virtually to the 
accuracy of the machine, it was translated into double-length 
instructions of Mercury Autocode and run on the Atlas using the 
EXCHLF compiler (the constant being lengthened to 
(0).398942280401432677939946). The results were compared with 
hand calculations using Table II of [5]. The errors in the 22nd 
significant figure were: 
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abs(x) x > 0 = upper xz > 0 = upper 
1.0 2 3 
2.0 7 1 
4.0 2 0 
8.0 8 0 


Timings. Timings of these algorithms were made in terms of 
the Atlas “Instruction Count,’’ while evaluating the function 100 
times. The figures are not directly applicable to any other com- 
puter, but the relative times are likely to be much the same on 
other machines. 


InsrrucTion Count FoR 100 EvaLuaTIONs 


Algorithm number 


abs(zx) 
12 180 | 181 | 209 226 272 | 304 304> 
m= 7 

0.5 58 8 97 24 25 24 
1.0 65° 8 176 24 29 29 
1.5 | 164 | 128 | 127 9 273 25 35 35 
2.0 } 194 78 90 8 387 24 39 39 
2.5 | 252 54 68 10 515 24 131 44 


3.0 42 51 9 628 25 97 50 
4.0 27 39 9 9004 | 25 67 44 
6.0 15 30 6 1400? | 16 49 23 
8.0 9 28 7 21004 | 18 44 11 
10.0 10 25 5 27004 | 16 38 1] 
20.0 9 22 5 65002 | 16 32 11 
30.0 9 9 5 | 109004 | 16 11 11 


® Readings refer to x > 0 = upper. 

> Readings refer to x > 0 © upper. 

° Time to produce incorrect answer. A count of 120 would fit a 
smooth curve with surrounding values. 

4100 times Instruction Count for 1 evaluation. 


Opinion. There are advantages in having two algorithms 
available for normal curve tail areas. One should be very fast and 
reasonably accurate, the other very accurate and reasonably 
fast. We conclude that Algorithm 209 is the best for the first 
requirement, and Algorithm 304 for the second. 

Algorithms 180 and 181 are faster than Algorithm 304 and may 
be preferred for this reason, but the method used shows itself in 
Algorithm 181 to be not quite as accurate, and the introduction 
of this method solely for the circumstances in which Algorithm 
180 is applicable hardly seems worth while. 


Acknowledgment. Thanks are due to Miss I. Allen for her 
help with the double-length hand calculations. , 
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ALGORITHM 124 

HANKEL FUNCTION 

Luis J. SCHAEFER 

Purdue University, West Lafayette, Ind. 


procedure HANKEL(N,X,H); value N,X; 
real X; array H; 
comment This procedure evaluates the complex valued hankel 
function of the first kind for real argument X and integral order 
N and assigns it to H. The individual Bessel- and Neuman-func- 
tion series are not evaluated separately. Both the real and 
imaginary parts are generated from the same terms; 
begin real K, P, Rk, A,S,7,D,L; integer Q; 
A:=Rh:=1; Afi] := A[2] := 8 :=0; 
for Q := 1 step 1 until N do begin R := RX Q; S8:=S+ 
1/Q end; D := R/N; | 
R:=1/R; K := X X X/4; P := (X/2)TN; T := In(K) + 
1.1544313298631 ; 
for Q := 0, Q+1 while QS NVLH[2] do 
begin L := H[2]; All] := Afi] + AXKxXR; 
H(2] := H[2]) + AX(RXKxX(T-S) — (if Q<N then D/P 
else 0)); 


integer N; 


A:=AXK/Q; R:= —R/Q+N); S:=8+1/Q+1/Q+N); 


if Q<N then D := D/(N-@Q) 
end; H[2] := H[2] X .31830989 
end 


CERTIFICATION OF ALGORITHM 124 [S17] 

HANKEL FUNCTION [Luis J. Schaeffer, Comm. ACM 5 
(Sept. 1962), 483] . . 

GrorcE A. Retuzy (Recd. 5 Oct. 1964 and 4 Nov. 1964) 

‘Westinghouse Research Laboratories, Pittsburgh, Pa. 


This procedure, after modification, was run on the B-5000 using 
B-5000 ALGoL. Values obtained checked with US National Bureau 
of Standards Handbook of Mathematical Functions, Applied Mathe- 
matics Series 55, US Government Printing Office, Washington, 
D.C. 1964. 

For N = 0, 1 and 2, accuracy was to 10 decimals for X < 8.0. It 
deteriorated to 6 decimals for 8 < X < 17.5. For 3 < N < 9 ac- 
curacy was to the 5 decimals of the tables. 

Some changes proved necessary to make the algorithm run. 
Since the algorithm is short and the changes are involved, the 
algorithm is restated here. Note that a test for a zero argument 
X is included in the body of the procedure since H[2] ought to be 
minus infinity when X = 0. 


procedure HANKEL (N, X, H); value N, X; integer N; 
real X; array 7; | 

begin real K, P,R, A,S,T,D,L; integerQ; - 
if X = Othen 


begin comment In this case H(2] is minus infinity. M denotes 
the largest number which can be represented in the machine. 
The numerical value of M is to be written into the 
procedure: 
HA[2] := —M; - 
A{1] := if N = 0 then 1 else 0; 
go to exit 
end; 
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A:=R:=1; Alll:= A[2]:=S :=0; 
if N = Othen beginRk :=1; S:= D:=Oend 
else 


begin for Q := 1 step 1 until N do 
beginR :=RXQ; S:=S+1/Qend; D:=R/N 
end; 
R:=1/R;. K := XX X/4; P:=K TN; T := In (K) + 
1,1544313298631; ; 
comment The last constant is 2 X gamma, Euler’s constant; 
for Q :=0,Q+ 1 whileQ < N VL ¥ H [2] do 
begin L := H[2]; Ali] := Hl] +Ax Rk; 
A[2]:= H[2]+ A X (RX(T—S) — (if ¢<.N then D/P else 0)); 
A:= AX K/Q+); R := —R/Q+N+41); 
S:= 8 + 1/Q+1) + 1/Q+N+1); 
ifQ+1< N then D := D/(N—-Q—-1); 
end; a 
P := (X/2) f N; Hl] := All] X P; H[2] := 0.318309886184 
x H[2] x P; 
comment The multiplicative constant is 1/P1; 
outt : 
end HANKEL 
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ALGORITHM 125 

WEIGHTCOEFF 

H. RuTIsHAUSER 

Eidg. Technische Hochschule, Zurich, Switzerland 


procedure weighicoeff (n,q,e,eps,w,x); value n; real eps; 
integer n; array 9,¢,W,2; 

comment Computes abscissae a and weight coefficients w; for 

a Gaussian quadrature method — 9 wx)f(a) dx = dia wif(zi), 


6 
where f 9 w(x) dx = 1 and w(x) = 0. The method requires the order 
n, a tolerance eps and the 2n—1 first coefficients of the continued 


fraction 
[ru Ja al _ el _ al bs 
i) 22% lz la 2 1 Zz 


to be given, the latter as two arrays g[l:n] and e[1:n—1] all com- 
ponents of which are automatically positive by virtue of the con- 
dition w(x) 2 0. The method works as well if the upper bound b 
is actually infinity (note that b does not appear directly as param- 
eter!) or if the density w(x) dz is replaced by da(x) with a mono- 
tonically increasing a(x) with at least n points of variation. The 
tolerance eps should be given in accordance to the machine ac- 
curacy, e.g. as 10—10 for a computer with a ten-digit mantissa. The 
result is delivered as two arrays w[l:n] (the weight coefficients) 
and z[l:n] (the abscissae). For a description of the method see 
H. Rutishauser, ‘‘On a modification of the QD-algorithm with 
Graeffe-type convergence’’ (Proceedings of the IFIPS Congress, 
Munich, 1962].; 
begin 
integer k; 
Boolean test; 
real m, p; 
array g[l:n]; 
procedure red (a,f,n); value n; integer 7; array a,f; 
comment subprocedure red reduces a heptadiagonal matrix 
a to tridiagonal forrn as described in the paper loc. cit. Since 
the bulk of the computing time of the whole method is spent 
in this subprocedure, it would pay to write it in machine 
code.; 
begin 
real c; integer j,k; 
for k := 1 step 1 until n—1 do 


begin 
for j := k step 1 until n—1 do 
begin 
ci —fU) x alj,7)/aly,2]; 
alj,7] := 0; 


alj+1,2] := afj+1,2] + ¢ X afj,5); 
alj,1] = a{j,1) —cxX fil xaly,4); 
a[j,6) := alj,6] — ¢ X alj-+1,1]; 
afj+1,3] := a[j+1,3] — ¢ X off+1,6]; 


end j; 
for j := k step 1 until n—1 do 
begin 

e:= —fli] X alj,4]/aly,1]; 

afj,4] := 0; 

afj+1,1] := afj+1,1] + ¢ X al,6]; 


alj+1,6] := afj+1,6] + ¢ X-alj+1,3]; 
alj,5] := alj,5] — ¢ X alj+1,2]; 
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alj+1,0] := a[j+1,0] — ¢ X al[j+1,5]; 


end j; 
for j := k+1 step 1 until n—1 do 
begin 

ec := —alj,3]/alj—1,6]; 

alj,3] := 0; 


a{j,6] := alj,6] + ¢ X alj,1]; 

alj—1,5] := a[j—1,5] — ¢ X fli] X fli] X af,0); 
alj,2] := alj,2] — ¢ X fli] X fli] X al,5); 

alj,7] := alj,7] — ¢ X fli] X alj-+1,2]; 


end j; 
for j := k+1 step 1 until n—1 do 
begin 

ce := —alj,0]/alj—1,5); 

alj,0] := 0; 


a{j+1,2] := alj+1,2] + ¢ X fli] & al7,7]; 
alj,5] := alj,5] + ¢ X alj,2]; 
alj,1] := afj,1] — ¢ x fli] X fli] x als,6); 
alj,4] := af7,4] — ¢ X fli] X ali+1,1); 
end j; 
end k; 
end red; 
procedure gqdgraeffe (n,h,g,f); value n; 
integer 1; array h,g,f; 
comment Subprocedure gqdgraefe computes for a given 
finite continued fraction 


_ 1 q é1 q2 We 
np -Ba-g fof 


another one, the poles of which are thé squares of the poles of 
f(z). However qdgraeffe uses not the coefficients q, , ++: , qn 
and €1 , °°: , én-1 of f(z), but the quotients 


i S se (k z= 1,2,---,n—1) 
gr = Ck/ Great 


and the h, = (n(abs(q.)) (& := 1,2,---,n), and the results are 
delivered in the same form. Procedure qdgraeffe can be used 
independently, but requires subprocedure red above; 
begin 
integer k; array a[0:n,0:7]; 
gin] := f{n] := 0; 
for k := 1 step 1 until n do 
begin 
alk—1,4] := afk—1,5] := 1; 
alk,1] := afk,2] := 1+ glk] x Ik); 
alk,6) := alk,7] := glk}; 
a[k,0] := alk,3] := 0; 
comment The array a represents the heptadiagonal 
matrix Q of the paper loc. cit., but with the modifications 
needed to avoid the large numbers and with a peculiar 
arrangement. ; 
end k; 
a[n,5] := 0; 
red (a,f,n); 
for k := 1 step 1 until n do : 
h{k] := 2 X Alk] + Qr(abs(alk,1] X alk,2])); 
comment A saving might be achieved by economizing the 
log-computation in the range .8 S x S 1.2; 
for k := 1 step 1 until n—1 do 
begin 
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fle] := flk] X flk] X afk+1,2] X afk+1,1)/@lk,1] X alk,2)); 
glk] := afk,5) x alk,6]/(@[k+1,1] x alk+1,2]) 


end k; 


end gqdgraeffe; 


TA : 


L2: 
25: 


L3: 


end 


x(l] := q{l] + ell]; 
for k := 2 step 1 until do 
begin 
glk—1] := e[k—-1] X q[k]/2[k—-1]; 
x(k] := q{k] + (Gif k=n then 0 else e[k]) — g{k—1]; 
glk—1] := glk—1)/2[k], 
wlk—1] := afk]/2[k—-1]; 
x(k—1] := tn(x[k—1)); 
end k; 
z[n] := n(aln]); - 
p:=1; 
begin 
test := true; 
for k := 1 step | until n—1 do 
lest := test /\ abs(g{k] X wlk]) < eps; 
if test then go to L3; - 
qdgraeffe (n,x,g,w) ; 
end; 
p i= 2X p; 
go to £25; 
comment What follows is a peculiar method to compute 
the w, from given ratios gy = Wa,1/ws suchthat > iy we = 1, 
but the straightforward formulae to do this might well 
produce overflow of exponent.; 
wil] := m := 0; 
for k := 1 step 1 until n—1 do 
begin 
wlk+1] := wlk] + ingle); 
if wlk] > m then m := wik]; 
end k; 
for k := 1 step 1 until n do w{k] := exp(wlk]—m); 
m := 0; 
fork := 1 step 1 until n dom := m + wik]; 
for k := 1 step 1 until n do begin wk] := wlk]/m; 
tk] := exp(zlk}/p) end; 
weightcoeff 
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ALGORITHM 126 

GAUSS’ METHOD 

Jay W. Counts 

University of Missouri, Columbia, Mo. 


procedure gauss (u,a,y); 

real array a,y; integer wv; 

comment This procedure is for solving a system of linear equa- 
tions by successive elimination of the unknowns. The augmented 
matrix is a and u is the number of unknowns. The solution vector 
is y. If the system hasn’t any solution or many solutions, this is 
indicated by the go to error where error is a label outside the 


procedure. ; 
begin 
integer 1,j,4,m,n; 
n:= OQ; 
ch0: ni=n+1; 
for k := n step 1 until u do if alk,n] ~ 0 then go to ckl1; 
go to error; 
cki: if k = n then go to ck2; 
for m := n step 1 until u+1 do 
begin 
temp := a[n,m]; aln,m] := alk,m]; alk,m] := temp 
end; 
ck2: for 7 := u+ 1 step —1 until n do a[n,j] := a[n,j|/a{n,n); 
for? :=k +1 step 1 until udo 
for j := n+ 1 step 1 until u + 1do 
alt,j] al alt,7] _ ali,n] x aln,i}; 
if n~u then go to ck0; 
for 7 := u step —1 until 1 do 
begin 


ylt] := alt,u + 1)/alz,2); 
fork := 71 — 1 step —1 until 1 do 


alk,u + 1] := afk,u + 1] — alk] x y{e] 
end end; 
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ALGORITHM 127 

ORTHO 

Puarup J. WALsH 

National Bureau of Standards, Washington, D. C. 


procedure ORTHO(W,Y ,Z ,n,fn,m,p,r,ai,aui,mui,zei,X,DEV, 
COF STD,CV ,VCV ,gmdt,Q,Q2,E,EP,A,GF,ENF); 

value n,m,p,7,ai,aut,mut,zet; 

real fn,gmdt; 

array W,Y,Z,X,DEV,COF,STD,CV,VCV,Q,Q2,E,EP,A,GF,ENF; 

integer 7,m,p,7 ,a1,aut,zet,mut; 

switch ai := atl,ai2; switch ze := zel, ze2; 

switch au := aul,au2; switch mu := mul, mu2, mu3; 

comment ORTHO is a general purpose procedure which is 
capable of solving a wide variety of problems. For a detailed 
discussion of the applications listed below and other applica- 
tions, see (1) Philip Davis and Philip Rabinowitz, ‘A Multiple 

Purpose Orthonormalizing Code and Its Uses,” J. ACM 1 

(1954), 183-191, (2) Philip Davis, ‘“Orthonormalizing Codes in 

Numerical Analysis,’”’ in J. Todd (Ed.), A Survey of Numerical 

Analysis, Ch. 10 (McGraw-Hill, 1962), (3) Philip Davis and 

Philip Rabinowitz, ‘(Advances in Orthonormalizing Computa- 

tion,” in F. L. Alt (Ed.), Advances in Computers, Vol. 2, pp..55- 

133 (Academic Press, 1961), (4) Philip J. Walsh and Emilie V. 

Haynsworth, General Purpose Orthonormalizing Code, SHARE 

Abstr. 850. APPLICATIONS: (a) orthonormalizing a set of 

vectors with respect to a general inner product, (b) least squares 

approximation to given functions by polynomial approximations 
or any linear combination of powers, rational functions, trans- 
cendental functions and special functions, such as those defined 
numerically by a set of values, (c) curve fitting of empirical data 
in two or more dimensions, (d) finding the best solution in the 

l.s.s. to a system of m linear equations in n unknowns (nSm), 

(e) matrix inversion and solution of lineur systems of equations, 

(f) expansion of functions in a series of orthogonal functions, 

such as a series of Legendre or Chebyshev polynomials. 

The following information must be supplied to the procedure. 
(We are considering here the approximation feature of the pro- 
cedure.) 

n the number of components per vector (excluding augmenta- 
tion) 

m the number of vectors used in the approximation. For a 
polynomial fit of degree ¢, set m=t+1. 

p the number of augmented components per vector. A feature 
of this procedure is that once the approximating vectors 
have been orthonormalized, they may be used in approxi- 
mating r functions without repeating the orthonormali- 
zation procedure on the original approximating vectors. 

r the number of functions to be approximated. 

ait a switch control concerning the approximating vectors. 
With ai=1, the procedure selects the first n components 
of the first row of [Z], supplied by user. The 7 powers of 
these values are computed and stored into working loca- 
tion [X], 7=0(1)m—1. This is the usual set up for a poly- 
nomial fit. With at=2, the procedure selects the first n 
components of the first m rows of [Z] supplied by user and 
stores them into working location [X]. 

aui a switch control concerning augmentation on the approxi- 
mating vectors. If p=0, this switch is ignored. With 
aut=1, regular augmentation is applied to the vectors in 
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[X]. p zeros are stored after the nth component of the first 
m rows of [X]. The (n+7)th component is replaced by 
1.0, i=1(1)m. With aui=2, special augmentation is ap- 
plied to the vectors in [X]. The p components located after 
the nth component of the first m rows of [Z| supplied by 
the user augment [X]. 

zeta switch control concerning augmentation on the functions 
to be approximated. If r=0, this switch is ignored. With 
zet=1, regular augmentation is applied to the functions 
during the calculation. The n components of the first r 
rows of [Y] supplied by user will be augmented by p zeros 
when moving [Y] to [X]. With zei=2, special augmenta- 
tion is applied. The first » components of the first 7 rows 
of [Y] are the functional values supplied by user. The next 
p components of the first r rows of [Y] are special values 
also supplied by user. 


mut a switch control concerning weights. [W] is an n X n real, 


positive definite, symmetric matrix of weights. It is gen- 
erally diagonal and often the Identity matrix. mui=1 
when [W]=J, , the matrix [W] need not be supplied. 
mut=2 when [W] is diagonal, but not J, . The procedure is 
supplied the n diagonal elements of [W], but stored in the 
first row of matrix [W]. mui=3 when the full weighting 
matrix is supplied to the procedure. 

The following list of matrix arrays is given to aid the user in 
determining the number of components and vectors in the input 
and results. Wl[l:n,l:n], Yl[lir,lin+p],  Z[l:m,1:n+p], 
X{lim+1lin+p], DEV(L:r,l:n],. COF{[l:r,l:p], STD{[1:r], 
CV[l:p+1,1:p], VCV[1:r,l:p+i,l:p], Q[lir,l:m+1], Q2, E, 
EP(tir,lim], A[l:m,1:p], GF[l:m+r], ENF[1:m]. 

The results of the procedure are stored in the following loca- 
tions. The user must be sufficiently familiar with the theory to 
know which results are relevant to his application of the pro- 
cedure. All vectors are stored row-wise in the matrices listed 
below. 

xX orthonormal vectors 

DEV deviations 

COF coefficients 

STD standard deviations 

CV covariance matrix, stored in upper triangular form. 
The (p+1)st row contains the square root of the 
diagonal elements of the matrix. 

VCV_ variance-covariance matrices, stored in upper triangu- 
lar form with the (p+1)st rows containing the square 
root of the diagonal elements. There are 7 such 
matrices, the first subscript running over the r values. 

gmdt Gram determinant value 


Q Fourier coefficients ° 

Q2 squared Fourier coefficients 

E sum of the squared residuals 

EP residuals 

A a. lower triangular matrix used to calculate the co- 


variance matrix. CV = A’A. 
GF Gram factors 


ENF norms of the approximating vectors; 


begin 


integer npp, npm, ml, n2, m2, r1, rbar, p2, bet, rhi, 118, gai, sii, 7, 


j, det, mut, elz1, elz2, k, thi, ali, omt, nii; 


array PK,XP[1:n+p], QK[1:m+1]; 
real denom,sum,dk2,dk, fi,ss,8sq; 
switch be := bel, be2; switch rh := rhl,rh2; switch ga := 
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gal ,ga2; 


switch si := 


sil,st2; switch de := del,de2; 


nul nu2; 


switch th := th1,th2,th3; 


switch al := aill,al2; 


switch om := oml,om2; 


npp := n+p;npm := ntm; m1 := m—1;n2 := n+1; m2 := m+; 
rl := 0; 


roar := 7; p2:= p+1;denom := if n=m then 1.0 


else sqrt(n—m); bei :== rhi := 118 := 1; 
if (px0) then gat := sit := 2 else gai := sii := 1; 


bol: 
atl: 


at2: 


box2: 


aul: 


au2: 


bord: 
box: 
bord: 


box6: 


mul: 
mu2: 


mus: 


box? : 


om: 


oma: 


boz8: 
del: 


box8a : 


box8b: 
de2: 


box8e : 


go to ai[ai]; 

for j := 1 step 1 until n do begin 

X(2,j) := Z(1,7); X[1,7] := 1.0 end; 

for 1 := 2 step 1 until ml do begin 

for j := 1 step 1 until 2 do 

X({i+1,j) := X[i,j] X X[2,7] end; go to boz2; 
for 7 := 1 step 1 until m do begin 

for j := 1 step 1 until n do 

X(t,7j] := Z[t,7] end; 

if p=0 then go to 60z3 else go to aulaut]; 
for 2 := 1 step 1 until m do begin 

for 7 := n2 step | until npp do 

X(t,j) := 0.0; Xltn+7]:=1.0end; goto boz3; 
for 2 := 1 step 1 until m do begin 

for j := n2 step 1 until npp do 

X[t,j] := Zlt,7] end; 


det := nui :== elzl := elz2 :=k :=1; 
tht := 1; 
alt := omi := 1; if p=0 then go to boz6 else 


for j := 1 step 1 until p do PK[n+,] := 0.0; 

go to mu([muz]; 

for 7 := 1 step 1 until n do PK{i] := X{k,i]; 

go to boz7; 

for 2 := 1 step | until n do 

PK{(t] := X[k,t] X W[1,4]; go to box7; 

for z := 1 step 1 until n do begin sum := 0.0; 

for j := 1 step 1 until n do sum := sum + X{k,j] X 
Wlit,7]; PK\|d] := sum end; 

go to omlomi]; 

for 7 := 1 step 1 until k do begin sum := 0.0; 

for j := 1 step 1 until npp do 
sum := sum + PK[j] X X[z,7]; 
go to boz8; 

dk2 := 0.0; for 7 := 1 step 1 until npp do 
dk2 := dk2 + PK] X X[k,1); 

dk := sgrt(dk2); 

GF(218] := dk; 7118 := 7118 +1; 

for 1 := 1 step 1 until npp do 

X(k,t]. := X[k,¢]/dk; 


QKli] := sum end; 


omit := 1; go to boz6; 

go to de[dez]; 

elzl := —elzl; if elz1<0 then go to boxz8b else 
go to box8a; 


for 2 := 1 step 1 until k—1 do 

QK{t] = —QK[t]; QK{k] := 1.6; 

for 7 := 1 step 1 until npp do begin 

sum := 0.0; for 7 := 1 step 1 until k do 

sum := sum + X[j,7] X QKUy]; 

XP{i] := sum end; go to boz9; 

ENF[i18] := sqrt QK{k]); go to box8a; 

elz2 := —elz2; if elz22<0 then go to borz8c else 
go to box8a; 

for 7 := 1 step 1 until m do begin 

Qirl,i] := QK(t]; Q2[r1,7] := QKlz] X QK[i] end; 
Q[r1,m2] := QK[m2];  Efri,1] := Q[r1,m2]—Q2[r1,1]; 
for j := 2 step 1 until m do 

E(ri,j] := Eflr1,j—1] — Q2[rl,3]; 

fi := 100; 


for 2 := 1 step 1 until m do begin 


switch nu := 


box8d: 
box9: 
thi: 


th2: 


th3: 
boxl10: 
all: 
al2: 


boxll: 
nul: 
nu2: 


box12: 
bel: 


be2: 
boxr13: 
gal: 
ga2: 


boxl4: 
rhi: 


zel: 


ze2: 


rh2: 


stl: 
8t2: 
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if (fn—fi)>0.0 then begin if E[r1,7]<0.0 then begin 
EP{r1,i] := —sgrt(abs(E[rl1,i])/(fn—ft)); go to box8d; 
end 

else EP[r1,i] := sqré(E[r1,z]/(fn—ft)); 

go to bor8d;_ end else E{r1,:] := —1.0; 

fi := fit1.0; end go to boz8a; 

go to th{thi); 

for 7 := 1 step 1 until npp do 

X(k,t] := XP{i]; go to bozr10; 

for 1 := 1 step 1 until n do 

DEV{[r1,7] := XP{t]; 

for 7 := 1 step 1 until p do 

COF(r1,7] := —XP{n+i]; thi := 3; goto thl; 

go to borl1; 

go to al(ali]; 

omit := ali := 2; goto boxz6; 

if k<m then begin k := k+1; 
else go to box12; 

go to nu[nut]); 

nut := 2; goto borl4; 

ss := dk/denom; ssq := ss X 88; 
STD{(r1] := ss; go to boxl4; 
go to belbez]; 

for 1 := 1 step 1 until m do begin 

for j := 1 step 1 until p do 

Afi, j] := X{i, n + 3] end; 

gmdt := 1.0; fori := 1 step 1 until m do 
gmat := gmdt X (GF(t]/ENF[t)); 
gmdt := gmdt X gmdt; dei := bet 
k :=k+1; goto bozl3; 

go to boril; 

go to galgar}; 

go to borl1; 

for 7 := 1 step 1 until p do begin 
for j := i step 1 until p do begin 
sum := 0.0; 

for nit := 1 step 1 until m do 
sum := sum + Alnii, 1] X Al[nit, 3]; 
CV{i, j] := sum end end; 

for 2 := 1 step 1 until p do 

CV [p2, 7] := sqrt(CV[t, 7]); gat := 1; 
go to rh[rhi); 

if rbar = 0 then go to final else rbar := rbar —1; 
rl := rl +1; thi := rhi := 2; go to ze[zer]; 

for 7 := 1 step 1 until n do 
X (m2, 7] := Yr, 7]; 

for 7 := 1 step 1 until p do 

X{[m2, n+i] := 0.0; go to bozd; 

for 7 := 1 step 1 until npp do 
X(m2, 7) := Y[r1, 7]; go to bozd; 
go to si{sii]; 

go to rhl; 

for i := 1 step 1 until p do begin 
for j := 7 step 1 until p do 
VCV[rl, 2, j] := ssq X CV[t, j] end; 
for 7 := 1 step | until p do 
VCV[r1, p2, 7] := ss X CV[p2, 2]; 


go to boz4; end 


:= thi := 2; 


go to borll, 


go to rhl; 


final: end ortho 
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CERTIFICATION OF ALGORITHM 127 [F5] 

ORTHO [Philip J. Walsh, Comm. ACM 6 (Oct. 1962)] 

Ian BARRODALE (Recd. 22 Aug. 1966) 

Department of Mathematics, University of Victoria, 
Victoria, B.C., Canada 


KEY WORD AND PHRASES: orthogonalization, approximation 
CR CATEGORIES: 5.18, 5.17, 5.5 


Algorithm 127 contains the following errors. 

1. A begin must appear between the 6th and 7th lines, i.e. im- 
mediately after the integer specification and before the switch 
declaration. The begin following the comment and preceding 
the integer declaration must be removed. 

2. In the second integer declaration the identifiers muz, elz1, 
elz2 should be nui, elz1, e1z2, respectively. 

3. The section of the statement labeled atl that reads X (2,7) := 
Z(1, j) should read X(2, 7] := Z[1, J]. 

4, Following the statement labeled box8d there should be a 
semicolon between end and go to box8a. 

5. The formal parameter fn is not defined or mentioned in the 
comment. It appears in the program between the labels box8c 
and box8d. If fn is put equal to n the array HP then contains un- 
biased estimates of the m standard deviations. 


We have not needed the generalized definition of an inner prod- 
uct [1, p. 348] but have often required n (number of components 
per vector) to be large. We thus replaced the array W[1:n, 1:n] by 
an array W[l:n] which necessitated the removal of the switch list 
element mu3 from the 8th line, also an alteration to the line before 
the statement labeled mu3 and the removal of the three lines be- 
ginning with the statement labelled mu3. Consequently that part 
of the program that appeared in the six lines beginning with the 
statement labeled mu2 and ending with the statement labeled 
box7 then read as follows: 

mu2: for? := 1 step 1 until n do 

PK{(t] := X[k, 7] * Wlz]; 
boxz7: go to om[omi]; 

After the above modifications and corrections had been in- 
cluded the program ran successfully on an English Electric KDF9 
computer using both the Whetstone ALGoL compiler and the 
Kidsgrove Ago. compiler, these codes being proper subsets of 
ALGoL 60. 

Some of the problems used in testing Algorithm 127 were from 
approximation theory as applied to boundary value problems of 
elliptic type. For one such problem linear approximating functions 
were used in which most of the coefficients of the best approxima- 
tions are zero. The computed values of the standard deviations 
sometimes differed by more than 10 percent from both the true 
values and the unbiased estimates. We also solved the Dirichlet 
problem described by Davis [1, p. 369]. The set of coefficients ob- 
tained for the approximating function agreed only to the third 
decimal place with those given in [1]. All our calculations were in 
single-precision floating-point arithmetic. 

Rice [2, p. 325] has recently ncted that once the Gram-Schmidt 
orthogonalization method loses orthogonality it produces almost 
identical vectors. However, Algorithm 127 includes a correcting 
device which gives a second and better estimate to the true value 
of an orthonormal vector once the value obtained by Gram- 
Schmidt is known. Thus although Rice’s modifications were in- 
cluded in the program we have not noticed any significant differ- 
ences in computational behaviour. 

REFERENCES: 

1. Davis, P. J. Orthonormalizing codes in numerical analysis. In 
Survey of Numerical Analysis, J. Todd (Ed.), McGraw-Hill, 
New York, 1962, pp. 347-379. 

2. Ricz, J. R. Experiments on Gram-Schmidt orthogonalization. 
Math. Comput. 20 (Apr. 1966), 325-328. 
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COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 128 

SUMMATION OF FOURIER SERIES 
M. WELLS 

University of Leeds, Leeds 2, England* 


* Currently with Burroughs Corp., Pasadena, Calif. 


procedure Fourier (X, r, w, n, A, B); 
value n; real X,w, A,B; integer r, 7; 
comment Fourier sums a one-dimensional Fourier series, 
using a recurrence relation described by Watt [Computer 
J. 1, 4(1959) 162]. The parameters are the coefficients X, which 
are selected by 7, w, the argument and n the total number of 


terms in the series. On exit A = ) roo X,cos(rw) and 
B = Doro X,sin(rw). Fourier is particularly efficient 


where X, = 0 for all r > somer, and X, ¥ 0 forallr S 71.; 
begin real ¢, tr, trl, cosw2; 
trl := 0; cosw2 := 2 X cos(w); 
for r := n—1 step —1 until 0 do 
begin if X #~ 0 then go to term end search for nonzero term; 
tr := 0; go to all zeroes; 
term: tr := X; for r := r—1 step —1 until 0 do 
begin ¢ := tr X cosw2 + X — trl; trl := tr; t& := t end 
recurrence; 
all zeros: A := tr — irl X cosw2/2; B := tri X sin(w) 
end Fourier series 


CERTIFICATION OF ALGORITHM 128 [C6] 
SUMMATION OF FOURIER SERIES [M. Wells, Comm. 
ACM 5 (Oct. 1962), 513] 
Henry C. Tuacuer, Jr.* (Recd. 18 Mar. 1964) 
Argonne National Lab., Argonne, II. 
* Work supported by the U.S. Atomic Energy Commission 


The body of Fourier was transcribed for the Dartmouth ScaLp 
translator for the LGP-30 computer. After uniformizing the spell- 
ing of zeros (lines 5 and 9 in the procedure body), the program 
compiled and ran without difficulty. 

In the procedure statement for Fourier, the actual parameter 
corresponding to X should be an expression depending on the 
actual parameter corresponding to r. 

The ScaLP program was tested for the finite series: 


A ay _ sin ((n — 1)w/2) 

A= 2 cos rw = sy (w/) cos (nw/2) + 1 
sin (mn — 1)w/2) , 

B= py sin rw = ae ee (nw/2) 


for w = 0.1, 0.2, 0.5 and 1.0, and for n = 1(1)51. Although the algo- 
rithm appears to be numerically correct, the results showed evi- 
dence of serious numerical instability, particularly for small 
values of w. For w = 0.1, and x = 51, the error in A was .00109, 
and in B, — .00231. Since the largest A for n < 51 is 10.5, and the 
largest B about 20, the best result obtainable with the 7+ signifi- 
cant digit arithmetic of the Scaup system is about .00001. For 
comparison, & program summing the same series using a forward 
recurrence based on the addition formulas for the sine and cosine 
gave errors of .00012 and —.00018. It was, however, only about 
half as fast. 
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ALGORITHM 129 

MINIFUN 

V. W. WHITLEY 

Signal Missile Support Agency, White Sands Missile 
Range, N. Mex. 

procedure MINIFUN (tl, 61, eps, n, nent, fmin, xmin, kl, 

GFUN); 

value #1, 61, eps, n, nent; integer n, ncnt,k1; real fmin; 
real procedure GFUN; array tl, b1, eps, xmin; 

comment MINIFUN is a subroutine to find the minimum of a 
function of n variables, using the method of steepest descent. 
Input is: 


1. tl), «7 = 1,2, --- ,n, the upper limits of the search region 

2. bi(z),7 = 1,2, --- , n, the lower limits of the search region . 

3. eps(t),4 = 1,2, +--+ , n, the convergence criteria. The func- 
tion must be a minimum in the region | x(¢) — xmin(t) | 
S eps(t) 


4. n, the number of cadaisies (the dimension of the arrays) 

5. nent, the maximum number of iterations. The routine 
searches for a minimum until | 2(7) — xmin(i) | S eps(t) 
for all z, or until tent = nent, whichever happens first. 


Output is: 

1. fmin, the minimum value of the function 

2. amin(i), + = 1,---,n, the point at which the minimum 
occurs 


3. k1, an error code 

If kl = 1, a minimum has been found within the specified 
number of iterations and the minimum is less than all 
values of the function at the centers of the planes forming 
the boundary of the epsilon-cube 

If kl = 2, Ax(i) S eps(i) but a new minimum has been found 

If kl = 3, nent has been exceeded without Ax(i) S eps(t). 
In this case, a test is made to see if the current minimum 
is a minimum in the epsilon-cube. 

MINIFUN has been written as a Fortran II subroutine and is 
available from the SMSA Computation Center. It should be 
noted that the Fortran IT deck has been tested only on some 
relatively simple functions of two variables, such as GFUN 
(z,y) = cos(zy). The writer does not claim that the algorithm 
has been thoroughly tested; 

begin integer j, 7, icnt,k; real w, dmaz, alamb, ft; 
array wnew [1:n], zt[l:n], 21b[1:n], cub [1:7], 
delz(1:n], dl2r[1:n], emin{1:n], x[1:n, 1:4], g[l:n, 1:4], 
dxmin[1:n], d2amn[1:n]; 

comment start looking for a minimum at midpoint of region; 

for j:= 1 step 1 until n do 
begin wnew[j] := (é1[7] + b1L])/2; ati] := wnewly]; 

zub[j] := é1[j]; clblj] := b1[7]; delx[j] := (@ub{i] 
— xlb[j])/5; . 
d12z[j] := delz[j]?2; xrmin[j] := tly] 
end; 

fmin := GFUN (amin); 

for j := 1 step 1 until n do 
begin w := zi{j]; fori := 1 step 1 until 4do 

begin z[j, ¢] := xlb{j] + 7 X delz{[y]; 
xt{j] := a[j,t]; gli,i] == GFUN (at); 
end; 
xt[j] := w; 
demin{j] := (g[7,3] — gl7,2])/delals); 
d2xmn|i] := (9,4) — 9,3] — gf3,2] + gf,1])/d12c[3] 
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end; 
comment first and second difference quotients have been com- 
puted; 
tcnt := 0; dmaz := drmin(1]; k := 1; 
nustep: for j := 2 step 1 until n do 
begin if abs(dmaz) < abs(dxmn[j]) then 
begin dmax := damin[j]; k :=j 
end; 
end; 
alamb := dxmin|k\/d2emn{k];  w := axt{k] — alamb; 
comment a. new coordinate has been computed for the variable 
having the largest first partial derivative. It will be checked to 
see if the new point still lies within the region and search will 
continue; - 
if w <-b1[k] then w := bilk] else if w > ti{k] then w := (1[k]; 
at[k] := w; ft := GFUN (at); 
if ft <.fmin then go to check else 
restart: if xt|k] < wnew[k] then go to lbdchk 
else if zi[k] = wnew|k] then go to stnubds 
else if ti[k] > xt{k] then go to nupbds 
else xt[k] := 1.5 X wnewlk]; 
nupbds: xub{k] := tik]; avlbik] := 2 « atk} — t1[k]; go to 
newdel ; 
sinubds: xlb[k] : 
0.5 X wnewlk]; 
newdel: delz[k]:= 0.2 & (cub[k] — xlb[k]); dl2x[k] := delz|k]T2; 
for 7 := 1 step 1 until 4 do 
begin x{k,i] := xlb{k] + ¢ X delz{k]; w := zt{k); 
atk) := aki]; glk,t] := GFUN (zt); xt{k] := 
end; 
demin{k) := (glk,3] — glk,2))/delz|k]; 
d2amn|k] := (g[k,4] — g[k,3] — glk,2] + glk,1})/dl2c|k}; 
tent := icnt + 1; 
if icnt > nent then go to oust else go to nustep; 
lbdchk: if xt{k] S b1[k] then at|k) := 0.5 x wnew|k | 
else x1b{k] := b1{k]; cublk] : = 2.0 X aztlk] — bik]; 
go to newdel; 
check: fmin := ft; xmin|k] := xt\k]; 
for j := 1 step 1 until n do if delz[j] > eps[j] then go to restart; 
recheck: for j := 1 step 1 until n do 
begin w := xmin{j]; xmin{[j] := w + epslj]; fi := GFUN 
(xmin) ; 
if ft < fmin then go to set2; xmin{j] := w — eps{j]; 
ft := GFUN (xzmin); if ft < fmin then go to set2; xmin{j] 
= w 


atk] — 0.5 X wnewlk]; xublk] := xt {k} + 


end; 
if kl < 3 then kl := 1; go to bgend; 
sei2: kl := 2; goto bgend; 
outed: kl: =3; go to recheck; 
bgend: end MINIFUN; 
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REMARK ON ALGORITHM 129 MINIFUN 
MINIFUN [V. W. Whitley, Comm. ACM, Nov. 1962] 
E. J. WasscHER 

Philips Research Laboratories 

N. V. Philips’ Gloeilampenfabrieken 
Eindhoven-Netherlands 


Some errors found in Algorithm 129 MINIFUN [Comm. ACM, 
Nov. 1962] are given below. 

In addition, the way ‘“‘steepest descent’’ is used to compute 
the minimum of a function of n variables is not entirely satis- 
factory. The method for computing first derivatives may be im- 
proved in two ways: 


h 


1. Instead of computing is better to take 


fet fee) As f(z—h) has been computed by MINIFUN 
this does not give rise to extra computations. 

2. In MINIFUN the choice of h seems rather deliberate. In- 
deed, A is taken as .2 X (rub—21b), where rub and 21b are variable 
bounds of x. In the beginning of the program these bounds are 
put equal to the fixed bounds 61 and ub; afterwards in the itera- 
tion process they should tend towards each other, and in the limit 
they provide the minimum. So especially when a good approxima- 
tion to the minimum is unknown, b1 and ub have to be taken well 
apart from each other, which means that A is rather large. At the 
limit, however, h is very small. It is better to take A in such a way 
that the nominator f(z+h)—f(x—h) attains an appropriate value. 

As the method used by MINIFUN is the Newton-Raphson 
method applied to the first derivatives, convergence is not always 
secured—especially since first and second partial derivatives are 
estimated with numerical methods. 

It should be noted that the test on end of program is not correct. 
For a further possible decrease of the function one has not to look 
in the direction of the coordinate axes but in the direction of the 
steepest descent. 

AuGou descriptions of some ‘‘steepest descent’’ programs which 
were written in the symbolic code of the Philips computer Pascal 
(ef. H. J. Heijn and J. C. Selman, JRE Trans. EC10 (June 1961), 
175-183] are given in Algorithms 203, 204 and 205. 


Corrections or MINIFUN: 

Printing errors: The line below label nustep should read: 

begin if abs(dmax) <abs (dzmin [j]) then 

The label 1 bdchk should be lbdchk 

In comment MINIFUN: k1=2: a new minimum has not 
been found. 

The label nustep should be placed before the statement: 
dmaz := dzmin{j]; The declaration of zmin should be removed 
from the blockhead of the procedure body. The 2-dimensional 
arrays z[1:n, 1:4] and g[1:n, 1:4] ean be replaced by a real x and a 
1-dimensional array g[1:4] respectively. 

An improvement could be the insertion of the statement 


kl := 1; 


just before the label nustep. 

I am having considerable trouble with the obviously important 
part played by the array wnew, although it does not change after 
being set in the first statement of the program. Furthermore it 
seems to me that wnew plays a double rdle: first the component 
wnew|k] is the value of zxt{k] before an iteration on zt[k]. But then 
one should insert another statement after label nusiep: 
wnew[k] := at|k]; Secondly wnew[k] is to be understood as half 
the distance between upper and lower bound /1[k] and 61[k], which 
is only true when 01[k] = 0. 


Convergence of delz{j] to 0 is only achieved when x1b[{k] and 
zub(k] are tending towards each other. This indicates that wnewlk] 
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should go to 0 too. (See statements aiter label sinubds.) 
The following modifications could remove these objections 
(starting with the line above label restart) : 
if ft < fmin then go to check else atk] := wnewlkl; 


restart: if xt{k] < wnew[k] then go to lbdchk; 
if xi(k] = wnew[k] then go to stnubds ; 
if xt[k] < tl[k] then go to nupbds; 
xt(k] := 0.5 X (wnew[k] + t1[k]); 
nupbds: xub{k] := t{k]; xlb[k] := 2 X zt[k] — tl[k]; go to 
newdel ; 
stnubds: xlb[k] := xt{k] — 0.5 X (wnew[k] — zlb{k]); 
zublk] := xt[k] + 0.5 X (wnew[k] — x1b[k]); (etc.) 
lbdchk: if xt{k] = b1(k] then xt[k] := 0.5 X (wnew[k] + b1[k]); 


zlb[k] := b1[k]; zublk] := 2 X atk] — b1{k]; go to 
newdel; (etc.) 
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ALGORITHM 130 

PERMUTE 

Lt. B. C. Eaves 

U.S.A. Signal Center and School, Fort Monmouth, N. J. 


procedure PERMUTE (A, n, x) 

array A; integer n, 7; 

comment Each entry into PERMUTE generates the next per- 
mutation of the first n elements of A. If A is read as a number 
(A[1]A[2] --- A[n]), each generation is larger than the last: 


n:i=4,2:=1 
A[t] 1118 8 8 
A[2] 18 8 11 8 F 4} 
Al3] 818181 Permutations = 5101 
A[4s 8 8 1 8 1 1 end 


Identical elements in A reduce the number of permutations. The ~ 


array should be ordered before the first call on PERMUTE. 
Integer x specifies the first elements whose order should be pre- 


served: n := 4,2 := 3 
Afl] 111 4 
Af2]} 22 4 1 nm 
Al[3] 3 4 2 2 Permutations = a 


Before the first call on PERMUTE for a given array, first 
should be made true. If more is true, then PERMUTE was able 
to give another permutation; 

begin array B{l:n]; integer f,7,k, m, p; 
if first then ¢ := Alx]; first := false; 
for 7 := 1 step 1 until n do Bit] := 0; 
for 1 := n step —1 until 2 do 

begin if A[z] > tA A[t] > Ale — 1] then go to find; 

more := false; go to exit; 


realy; own real ft; 


end; 


jind: fork := n step —1 until 7 do 
begin if A[k] > tA Alk] > A[¢ —1] then 
begin Bik] := Alk]; m:=k; end; end; 
for k := n step —1 until 7 do 
begin if Blk] > 0 ABlk] < Blm] then 
begin Bim] := Bik]; f := k; end; end; 
ri= Alié-—1]; Alé—1]:= Bim]; Aff] :=7; 
schell: p:=t—1;m:=n — p; 
for m := m/2 — .4 while m > 0 do 
begin k :=n—-—™; 
for f := p+ 1 step 1 until k do 
begin 7 := f; 
comp: if Alt] > Alt + m] then 
begin ry := Ali+m]; Ali +m] := Al[z]; 
Aft] :=rji1:=t—m; 
if 7 2 p+ 1 then goto comp; 
end end end schell; 
exit. end PERMUTE 


REMARKS ON: 


ALGORITHM 87 [G6] 
PERMUTATION GENERATOR 
[John R. Howell, Comm. ACM 6 (Apr. 1962), 209] 
ALGORITHM 102 [G6] 
PERMUTATION IN LEXICOGRAPHICAL ORDER 
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[G. F. Schrak and M. Shimrat, Comm. ACM 6 (June 
(1962), 346] 
ALGORITHM 1380 [G6] 
PERMUTE 
[Lt. B. C. Eaves, Comm. ACM 6& (Nov. 1962), 551] 
ALGORITHM 202 [G6] 
GENERATION OF PERMUTATIONS IN 
LEXICOGRAPHICAL ORDER 
[Mok-Kong Shen, Comm. ACM 6 (Sept. 1963), 517] 


R. J. Onp-Smitu (Reed. 11 Nov. 1966, 28 Dec. 1966 and 
17 Mar. 1967) 
Computing Laboratory, University of Bradford, England 


A comparison of the published algorithms which seek to generate 
successive permutations in lexicographic order shows that Algo- 
rithm 202 is the most efficient. Since, however, it is more than twice 
as slow as transposition Algorithm 115 [H. F. Trotter, Perm, 
Comm. ACM 6 (Aug. 1962), 484], there appears to be room for im- 
provement. Theoretically a ‘‘best’’ lexicographic algorithm 
should be about one and a half times slower than Algorithm 115. 
See Algorithm 308 [R. J. Ord-Smith, Generation of Permutations 
in Pseudo-Lexicographic Order, Comm. ACM 10 (July 1967), 452] 
which is twice as fast as Algorithm 202. 


ALGORITHM 87 is very slow. 
ALGORITHM 102 shows a marked improvement. 


ALGORITHM 130 does not appear to have been certified before. 
We find that, certainly for some forms of vector to be permuted, 
the algorithm can fail. The reason is as follows. 

At execution of A[f] := 7; on line prior to that labeled schell, f 
has not necessarily been assigned a value. f has a value if, and 
only if, the Boolean expression B[k] > 0 A B[k] < Blm] is true for 
at least one of the relevant values of k. In particular when matrix 
A is set up by A[i] := 7; for each 7 the Boolean expression above is 
false on the first call. 


ALGORITHM 202 is the best and fastest algorithm of the 
exicographic set so far published. 


A collected comparison of these algorithms is given in Table I. 
tn is the time for complete generation of n! permutations. Times 
are scaled relative to ¢s for Algorithm 202, which is set at 100. 
Tests were made on an ICT 1905 computer. The actual time ts 
for Algorithm 202 on this machine was 100 seconds. 7, has the 
usual definition rz = tn/(n-tn-1). 


TABLE I 
Algorithm te ty tg re rr rs 
87 118 — — — — — 
102 2.1 15.5 135 1.08 1.08 1.1 
130 — —~ — — — — 
202 1.7 12.4 100 1.00 1.00 1.00 
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ALGORITHM 131 
COEFFICIENT DETERMINATION* 
V. H. Smiru anp M. L. ALLEN 


Georgia Institute of Technology, Atlanta 13, Ga. 


* This procedure pertains to research work sponsored in part 
by NSF Grant G-7361. 


procedure DET (n, G, H); 

array G, H; integer n; 

comment Given the first n coefficients of the power series 
G(z) = gi + geez + gaz? + +++ + gne™ > +--+, and H(z) = i + 
hoz + haz? + +--+ + haz™! +--+ , this procedure determines the 
coefficients d; ,7 = 1, --- , n, of the power series which is the 
expansion of the quotient H(z)/G(z). It is assumed that g, ~ 0. 
The arrays G and Z initially contain the coefficients of G(z) and 
H(z), respectively. The integer n is the number of known coeffi- 
cients in the expansion of G(z) and H(z). At the conclusion, H; 
contains the coefficient d; . The procedure may also be useful in 
calculating residues for certain complex functions. Suppose 
F(z) = H(z)/G(z) is a complex valued function of a complex 
variable and that F has a pole of order m at z = b, where H(z) = 
Detar he(z — 6), Gz) = Lita gee — db), and gi ¥ 0, 
h, # 0. The required residue at z = b is d,, where 


D(z) = bE hile | / PB gue — oe | | 
kel kel 


= >* djfz - db). 


j=1 


For more on this, one is referred to Einar Hille, ‘‘Analytic Func- 
tion Theory, Vol. I, ’’ Ginn and Co., 1959, pages 242-244; 
begin integer 1, 7,7; real alpha, beta; 
alpha := 1/G(1); 
for j := 1 step 1 until n do 
begin beta := alpha X H{jl; 
for 71 := j + 1 step 1 until n do 
H(i) := Hi] — (beta X Gli — 7 + 1)) end; 
for j := 1 step 1 until x do 
H{j) := Hj] x alpha; 
end DET 


131-P 1- 


0 


COLLECTED ALGORITHMS FROM CACM 
132-P 1- 0 


ALGORITHM 132 exit: end avector; 
QUANTUM MECHANICAL INTEGRALS OVER procedure bvector(anmaz, bvalues); value a, nmaz; real a; 
ALL SLATER-TYPE INTEGRALS integer nmaz; real array bvalues; real procedure modulus; 


C- Browne comment This procedure computes a sequence of values for the 


The University of Texas, Austin, Tex. 


real procedure: allslater (p,q,pe,ge,np,nq,lp,lq,mp,mq,na,nb) 
internuclear distance: (r); 
real pe,ge,r; integer p,qg,np,ng,lp,lq,mp,mq, 
; na,nb; 
comment The Slater-type orbitals frequently used in quantum 
mechanical calculations on atoms and molecules are defined as 
p = k(np,pe) r?-te—(velr YT) (0, &), where k(np,pe) is a normal- 
ization constant, Y1"(6,¢) is a spherical harmonic with the 
phase convention [Y:"(6,¢)]* = (—1)™¥Y1"(6,¢), np is a positive 
integer, lp is an integer, lp < np, mp is an integer, — lp S mp 
S lp; and pe is a real positive constant. Algorithm 110, Y. A. 
Kruglyak and D. R. Whitman (Comm. ACM, July 1962) serves 
to compute integrals over certain operators of a quite restricted 
class of Slater-type orbitals, np = 4, lp = 1, mp = 0. The algo- 
rithm given here will compute all integrals of the form 
S° pelre*) qedr 
which can be expressed in terms of the simple A,(b) and B,(a) 
functions. The subscript c denotes either of the two nuclei of 
a diatomic molecule. These integrals include all those one-elec- 
tron integrals necessary for a conventional energy calculation 
on a diatomic molecule. In the arguments of allslater » and q 
are numerical designations for the respective orbitals. p and q 
are even or odd as they respectively are associated with the 
“left,’’ a, nucleus or ‘“‘right,’’ 6, nucleus of a diatomic molecule. 
Global arrays, fact 1, of factorials and binom, of binomial co- 
efficients are assumed. We first define some procedures utilized 
by allslater. The main program begins at the label set; 
begin real norm, 12, alpha, beta, s, clp, clq, bpci; 
integer nsum, lsum, peven, geven, podd, godd, limitp, limita, 
g, h, 1, j, nlp, nlq, lmp, lmq, gama, gamb, aidaa, aidab, gam, 
aida, num2; real] array avalues [0:21], bvalues[0:21]; real pro- 
cedure cl, bpc,. modulus; 
real procedure cl (I,m,j); value 1,m,j, integer l,m,j; 
begin cl := ((—1)f3)X factl[2x(l — 9)]/((2Tl) X factl 
[l-2x j—m]x 
fact\{t — j\X facti{j]) 
end cl; 
rea] procedure bpc(i, j,k); value 7,j,k, integer 7,j,k; 
begin real ¢; integer m; ¢ := 0; 
for m := 0 step 1 until k do 
begin ¢ := ¢ + ((—1) f (k — m) 
X binom [1, m] X binom [j,k — m] 
end 
end bpc; 
real procedure modulus (7,7); valuei,j; integer 7, j; 
begin modulus := 1 —abs(t + j) X j 
end modulus; 
procedure avector (b, nmaz, avalues); value b, nmaz; 
real 6; integer nmaz; real array avalues; 
begin integer ™; 
avalues[0] = exp(—b)/b; 
if nmax = 0 then go to exit; 
for m = 1 step 1 until nmaz do - 
begin avalues{m] = avalues[0] + (m/b) X avalues{m — 1] 
end; 


- integral, Bn(a) = f_1 2"e~*dxz, for n = 0 ton = nmaz. If a = 


alim then Bo(a) is computed and upward recursion is used to 
generate the higher n values. If a < alim then Bnmaz(a@) i8 com- 
puted by series expansion and downward recursion is used to 
generate the smaller n values. alim is determined within the 
program by a simplification of a result of Gautschi (J. ACM 8, 
21 (1961)). Gautschi has made an analysis of the recursive pro- 
cedures for the B, (a) which could be taken as a model for workers 
in molecular quantum mechanics; 
begin real fxz, fzy, numerator, denom, sum, factorl, tsum 

factor2, t, aa; integer m,mn; 

begin if abs(a) = ((nmaz+nmaz/6+3)/2.3) then 

up: begin fxr := exp(a); 


fay := 1/fax; 
bualues [0] := (faa-fry)/a; 
for m := 1 step 1 until nmaz do 


begin fxr := — frz; 
bvalues[m] := (fax—fary + m X 
bvalues[{m—1])/a 
end; 
go to exit; 
end up; 
down: begin aa := axa; 
if modulus (nmaz, 2)+0 then 
setodd: begin numerator := nmaz + 2; 
sum := a/numerator; 
factor! := —2; 
factor2 := 3; 
go to compute; 
end setodd; 
seteven: begin numerator := nmax + 1; 
sum := 1/numerator; 
factorl := factor2 := 2; 
end seieven; 
compute: begin denom := numerator + 2; 
i := sum; — 
t:= ((((t/factor2) Xaa) 
/(factor2—1))X numerator) 
/denom; 
tsum := t + sum; 
if (sum—tsum)=0 then 
begin bvalues[nmaz] := sum X factor1; 
go to recur; 
end; 
begin factor2 := factor2 + 2; 
numerator := denom; 
sum := tsum; 
go to compuie; 
end compute; 
recur: begin frx := exp(a); 
fry := 1/faa; 
mn := nmax —1; 
if modulus(nmaz, 2) ¥ 0 then 
fax := —frz; 
for m := mn step —1 until 0 do 
begin frx = —fxx; 
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exit: 
set: 


exit: 


end; 


bvalues[m] := (faxr+fry + a X 


bvalues[m+1]})/(m+1); 
end 
end recur; 
end down; 


end bvector; 
begin if (mp + mq) ~ 0 then 
begin allslater :== 0.0; go to exit end; 


set: 


begin norm := sqrt (((2Xpe)f 


(2Xnp+1) K (2Xlp+1) X factl[lp—mp] X (2X ge)T 
(2Xng+1) X (2Xlq+1) X facti[lq-mgq])/(factl [2x 
np] X factillp+mp] X factl{2xng] X facti[lqg+maq] X 


4)); 
nsum := np+ng; 
lsum := Ipt+lq; 
72 := 7/2; 
norm := norm X (r27(nsum+1+na+nb)); 
alpha := 72 X (pe+qe); 
beta := r2 X(((—1)Tp)Xpe + ((—-1)Ta@) X ge); 
num2 := 2; 
avector (alpha, nsum, avalues) ; 
bvector (beta, nsum, bvalues); 
peven := modulus (p+1,2); 
geven := modulus (q+1,2); 
podd := modulus (p,2); 
qodd := modulus (q,2); 
limitp := (lp—mp) +num2; 
limitg := (lq—mq) +num2; 
8 := 0; 


end set; 
sum: begin for g := 0 step 1 until limitp do 


begin clp := cl(lp,mp,g); 

for h := 0 step 1 until limita. do 
begin cig := cl(lg,mq,h); 

nlp := np—lp+2xg—-1; 

nip := nq—lgt2xh-1; 

lmp. := lp—mp—2Xqg; 

Imp := lq—mq—2xXh; 

gama := nlp X peven + nlq X qeven +1 +na; 
gamb := nlp X podd + nlq X godd +1 +nb; 
aidaa := lmp X peven + lmq X geven; 
aidab := lmp X podd + lmq X gqodd; 
gam = gama -+ gamb; 

aida = aidaa + aidab; 

for 1 := 0 step 1 until gam do 
begin bpci := bpc(gama, gamb, 1); 
for j := 0 step 1 until aida do 
begin 

s := s+ clp X clq X bpei X 
bpc(aidaa, aidab, j) X 
avalues[nsum+na+nb—i-—j] 

X bvaluesllsum —2 X (g+h) +i—J]; 
end 

end 

end 

end; 


allslater := s X norm; 
end sum; 

end; 

end allslater; 
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ALGORITHM 133 

RANDOM 

Perer G. BEsrenz 
Mathematikmaskinnimnden, Stockholm, Sweden 


real procedure RANDOM (A, B, X0); 

value A, B, X0: 

real A, B; 

integer X0; 

comment RANDOM generates a rectangular distributed 
pseudo-random number in the interval A < B. XOis an integer 
starting-value. The first time RANDOM is used in a program 
X0 should be a positive odd integer with 11 digits, XO < 2% = 
34 359 738 368. The following times RANDOM is used, X0 should 
be XO = 0. The mathematical method used is Xnu = 5 Xn 
(mod 2%), This sequence has period 2%). RANDOM was suc- 
cessfully run on FACIT EDB using FACIT-ALGOL 1, which 
is a realization of ALGOL 60 for FACIT EDB, except for the 
declarator own, which is not included in FACIT-ALGOL 1. 
To test RANDOM, we computed 1/N >) X, and 1/N >> X,? 
in the interval 0,1 for N = 500, 1000, 5000. The starting- 
value was XO = 28 395 423 107. The results were 0.50625, 
0.48632, 0.50304 and 0.34304, 0.31681, 0.33469. Theoretically 
one expects 0.50000 and 0.33333; 

begin 

integer M35, M36, M37; 

own integer X; 

if XO ~ 0 then begin 

X := X0; M35 := 34 359 738 368; M36 := 68 719 476 736; 

M37 := 137 438 953 472 end; X := 5 x X; 

if X 2 M37 then X := X — M37; 

if X 2 M36 then X := X — M36; 

if X 2 M35 then X := X — M35; 

RANDOM := X/M35 X (B — A) + A end 


REMARK ON ALGORITHM 133 
RANDOM (P. G. Behrenz, Comm. ACM, Nov. 1962) 
Prrer G. BErHRENZ 
Matematikmaskinnimnden, Box 6131, Stockholm 6, 
Sweden 
Replace the declarations in the body of the procedure, 
integer M35, M36, M37; own integer X; 


by: 
own integer X, M35, M36, M37; 
The sequence of 238random numbers contains about 15 numbers 


which are not really random numbers. For details, see R. W. 


Hamming, Numerical Methods for Scientists and Engineers, 
p. 384 [McGraw-Hill. 1962]. 
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REMARK ON ALGORITHM 133 : 

RANDOM [Peter G. Behrenz, Comm. ACM i1, Nov. 
1962] 

Donatp L. LAUGHLIN 

Missouri School of Mines and Metallurgy, Rolla, Missouri 


Algorithm 133 was translated into Fortran II for the IBM 
1620 and run successfully. The starting value was changed to 
21 348 759 609 and significant results followed. 

For N = 500 and 1000, the resulting values were: 0.4990157688, 
0.4986269653 and 0.3318717863, 0.3290401482. 


CERTIFICATION OF ALGORITHM 133 
RANDOM [Peter G. Behrenz, Comm. ACM, Nov. 1962] 
JESSE H. Poors, JR. 
Louisiana Polytechnic Institute, Ruston, La. 

Algorithm 133 was transliterated into Fortran II for the IBM 
1620 computer. A monitor program performed the test indicated in 
‘Algorithm 133 on the generated numbers. 


Results of the test are shown in the following chart. The nota- 
tion used is identical to that used in the algorithm. 


XxX 0 w2Xn - pextn 
4986480931 . 3280561242 N = 500 
13543288579 -4840396640 .3141520616 N = 1000 
-4996829627 . 3321160892 N = 5000 
-4971414796 . 3297990588 N = 500 
24376589411 -4997720126 . 3326801987 N = 1000 
-4986380784 . 3319949173 N = 5000 
-4962408228 3339214302 N = 500 
34359738367 -4974837457 3335720239 N = 1000 
-4929612237 . 8253421270 N = 5000 
-5313808305 . 3691599122 N = 500 
11324679915 .5167083685 . 3498558251 N = 1000 
-5043814637 . 3383429327 N = 5000 
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ALGORITHM 134 
EXPONENTIATION OF SERIES 
Henry E. Ferris 


Aeronautical Research Laboratories, Wright-Patterson 
Air Force Base, Ohio 


procedure SERIESPWR(A, B, P, N); 
comment This procedure calculates the coetficients Bit] for 
the series (f(x))? = g(x) =1+ >> Bi] Xxti, (¢=1,2,--- ,N) 
given the coefficients of the series f(r) = 1 +: >“ Ali] X x ft i. 
P may be any real number; 
value A, P, N; 
array A, B; 
integer N; 
begin integer 1, k; 
real p, s; 
Bil] := PX Aft]; 
for 7 := 2 step 1 until N do 
begin s := 0; 
for k := 1 step 1 until i—1 do 
S:= s + (P X [i-k] — k) X Bik] x Ali—k); 
Bit] := PX Afi] + (8/2) 
end for 7; 


end SERIESPWR 


CERTIFICATION OF ALGORITHMS 134 AND 158 

EXPONENTIATION OF SERIES [Henry E. Fettis, 
Comm. ACM, Oct. 1962 and Mar. 1963] 

Henry C. THacuer, Jr. 


Reactor Engineering Div., Argonne National Laboratory 
Argonne, Ill. 
Work supported by the U.S. Atomic Energy Commission. 


The bodies of SERIESPWR were transcribed for the Dart- 
mouth ScaupP processor for the LGP-30 computer. In addition to 
the modifications required by the limitations of this translator, 
the following corrections were necessary: 

1. Add ‘real P;” to the specifications. 

2. Delete ‘‘p,”’ from the declarations in the procedure body. 

3. (134 only) Replace “8” by “‘s” and [i—k] by “(i—k)” in the 

statement S:= 3+ ---, 

4. (158 only) Changes last sentence of comment to ‘Setting 
P := 0 gives the coefficients for In(f(z)). In this series, the 
constant term is 0, instead of 1 as elsewhere;”’ 

- (158 only) Add the identifier P2 to the declared real variables. 

6. (158 only) Make the first statements read: 

“if P = 0 then P2 := 1 else P2 := P; 
Bil] := P2x All]; 
7. (158 only) Make the statement of the for k loop read 


on 


“S := S+(PX (i—k)—k) & Blk] x A[i—k];” 
8. Change the last statement to 
“Bli] := P2 xX Alt] + S/t end fori; 
In addition, the following modifications would improve the 


efficiency of the program: 
1. Remove A from the value list. 
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2. Omit the statement B[l]:= P x A[l]; (P2XA[1] in 158 
according to correction 6) and change the initial value of 7 
in the statement following from 2 to 1. 

When these changes were made, both procedures produced the 
first ten coefficients of the series for (exp(x)) 7 2.5 from the first 
ten coefficients of the exponential series. The procedures were 
also used to generate the binomial coefficients by applying them 
+9 (1+2)?, for P = 2.0, and 0.5000000. Algorithm 158 was also 
tested with P := 0 for 1+z and for the series expansions for 
(sin x)/x, cos x, and exp x. In all cases, the coefficients agreed 
with known values within roundoff. 
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ALGORITHM 135 

CROUT WITH EQUILIBRATION AND ITERATION 
WititiAM MarsHaty McKrreman* . 
Stanford University, Stanford, Calif. 


* This work was supported in part by the Office of Naval Re- 
search under contract Nonr 225(87). 


procedure LINEARSYSTEM (A) order:(n) right-hand sides :(B) 
number of right-hand sides:(m) answers:(X) determinant : (det, 
ex) condition of A:{enr); 

integer n,m, ex; real det, cnr; real array A, B, X; 

comment, LINEAR SYSTEM uses Crout’s method with row 
equilibration, row interchanges and iterative improvement 
for solving the matrix equation AX = B where A isn X n and 
X and B are n X m. As special cases one sees that: for m S 0, 
only the determinant of A is evaluated, for m = 1, the algo- 
rithm solves a system of n equations in n unknowns, for m = n 
and B = the identity matrix, the algorithm inverts A. 

If the algorithm breaks down for a singular or nearly singular 
matrix A, exit to a non-local label ‘‘singular’”’ is provided. Five 
auxiliary procedures: EFQUILIBRATE, CROUT, PRODUCT, 
RESIDUALS and SOLVE are declared with appropriate com- 
ments after the end of this procedure. This code is the result of 
the joint efforts of G. Guthrie, W. McKeeman, Cleve Moler, 
Margaret Salmon, Alan Shaw and R. Van Wyk. It was written 
following ideas presented by J. H. Wilkinson as a visiting lec- 
turer in Professor George E.. Forsythe’s class in Advanced Nu- 
merical Analysis at Stanford, 1962; 

begin integer array pivot [1:n]; integer 7, j, k; real mz; 
real array LU[l:n, 1:n], y, res, muli{i:n]; 
comment, remove appropriate factors from the rows of A... ; 
EQUILIBRATE(A, n, mult); 
comment .., and save the result for the eventual computation 
of residuals during iteration; 
for 7 := 1 step 1 until n do 

for j := 1 step 1 until n do LU[i,j] := Ali,j]; 
comment, decompose the matrix into triangular factors; 
CROUT (LU, n, pivot, det); 
comment, assuming that there was no exit to “singular’’, 
evaluate the determinant in the form det X (10.0 T ez); 
for? := 1 step 1 until n do y[7] := LU[t,7] X mult{i); 
det := det X PRODUCT (y,1,n,ex); 
comment, now begin to process right-hand sides; 
for k := 1 step 1 until m do 
begin integer 7, count, limit; real normy, kr; 

kr :=k; 

comment, scale the right-hand side; 

for 7 := 1 step 1 until n do res{i] := Bli,k] := Bli,k)/mult{z); 

comment, store the first approximation and its L(1) norm; 

normy := 0; 

SOLVE(LU, n, res, pivot, y); 

for 7 := 1 step 1 until 7 do 


begin 
normy := normy + abs(y[z]); 
XIlt,k] := ylt) 

end; 


comment, enter the iterating loop. The iteration is termi- 
nated on the integer “‘limit’’ which itself is determined on 
the basis of the success of the first iteration and a machine- 
dependent real number designated here by ‘“‘eps’’. For 
“ens”, the programmer must insert the largest real num- 
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ber such that eps + 1.0 = 1.0 ; 
for count :='1, 2 step 1 until limit do 
begin integer 7; real 1; 
comment;' compute the residuals of the solution y; 
RESIDU ALS(A,n,B,k,X,res); 
comment ... and find the next increment to the solution; 
SOLVE(LU,,n,res,pivot,y); 
comment, set up termination conditions; 
if count = 1 then 
begin real normdy; 
normdy := 0; 
for 7 := 1 step 1 until n do normdy := normdy+abs(y[z)) ; 
if normdy = 0 then begin cnr := 1.0; go to enditer end; 
t := normy/normdy; 
comment, The quantity || A ||-|] 47! || (spectral norm) 
is called the condition number of the matrix A. It is 
a measure of the difficulty in solving the input equation 
and appears naturally in error bounds for the solution 
(see Wilkinson [8]). cnr is a direct measure of the 
error and experimentally approximates the condition 
number; 
enr := ((kr — 1.0) X enr + 1.0/(eps X t))/kr; 
if ¢ < 2.0 then go to singular;, 
limit := In(eps)/In(1.0/t); 
end; 
comment, store the new approximation; 
for? := 1 step 1 until n do X [i,k] := XJi,k] := X[2,k} + ye); 
end tieration; 
enditer : 
end right-hand sides 
end LINEAR SYSTEM; 
procedure EFQUILIBRATE (A) order:(n)- multipliers :(mult) ; 
integer n; real array A, mult; 
comment, scaling the rows of the matrix A to roughly the same 
maximum magnitude (here, dividing by the largest element) 
allows the procedure CROUT to select effective pivotal elements 
for the Gaussian decomposition of the matrix. The iterating 
procedure will converge to the solution for the equilibrated 
matrix rather than the input matrix. If the matrix is badly 
conditioned then the solution is sensitive to perturbations in 
the input and the scaling division must be done not by the 
largest element but rather by the power of the machine number 
base (2 and 10 for binary. and decimal machines, respectively) 
nearest the largest element so as to avoid rounding errors. 
Equilibration is discussed in reference [3] p. 284; 
begin integer 7; real mz; 
for 7 := 1 step 1 until n do 
begin integer j; 
mz := 0.0; comment, find the largest element; 
for j := 1 step 1 until n do 
if abs(A[i,k]) > mx then mz := abs(A[i,k]); 
if mz = 0.0 then go to singular; 
‘comment, now store the multiplier and scale the row; 
mult[i] := mz; comment := base f ex for exact scaling; 
if mz ~ 1.0 then 
for j := 1 step 1 until n do A[i,j] := Ali,j]/ma 
end 


end EQUILIBRATE; 
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procedure CROUT (A) order:(n) pivots :(pivot) interchanges :(sg). 
integer n; integer array pivot; real array A: real sg; 
comment, this is Crout’s method with row interchanges as 
formulated in reference [1] for transforming the matrix A into 
the triangular decomposition LU with all the Lfk,k] = 1.0. 
pivottk} stores the index of the pivotal row at the k-th stage of 
the elimination for use in the procedure SOLVE; 
begin integer 1, j,k, imax, p; real ¢, quot; 
.real procedure /P1 (A) extra term:(¢) length:(/); 
integer f; real ¢; real array 4; comment non-local 7, j, k; 
comment, IP1 forms a row by column inner product of 4, 
namely the sum of Alt,p] & Alp,k] for p := 1, 2,..., f, and 
then adds the extra term ¢. If f < 1, the value of 7P1 is ¢. 
This procedure is the inner loop of the algorithm. The pro- 
grammer can expect a substantial advantage from substi- 
tuting a faster and more accurate inner product here; 
begin real sum; integer p; 
sum := ¢; 
for p := 1 step 1 until f do sum := sum + Ali,p] x Alp,k]; 
TP1 := sum 
end IPi; 
sg := 1.0; 
comment, k is the stage of the elimination; 
for k := 1 step 1 until n do 
begin 
i:m Q; 
for 1 := k step 1 until n do 
begin comment, compute L. Note that the first calls on JP1 
are empty; 
Ali,k] :-= -—IP1(A, —Ali,k],k—-1); 
if abs(Ali,k]) > ¢ then 
begin ¢ := abs(A[i,k]); imax := 7 end 
end; 
if t = 0 then go to singular; 
comment, Alimaz,k] is the largest element in the remainder 
of column k. Interchange rows if necessary and record the 
change; 
pivot|k] := imaz; 
if imaz ~ kK then 


hegin 
8g := —3g; 
for j := 1 step 1 until n do 
begin 
t r= Alkyj]; Afkj] := Aimar, j]; A[imaz, j] := + 
end 
end; 


comment, compute a column of multipliers; 
quot := 1.0/Afk,k]; 
fort := k+1 step 1 until n do A[i,k] := A[i,k] X quot; 
comment, and compute a row of U; 
for j := k+1 step 1 until n do 
Afk,j] := -IP1(A,—A[k,7],4—-—1) 
end 
end CROUT; 
real procedure PRODUCT (factors) start:(s) finish:(f) 
exponent :(ez); 
integer s,f,ex; real array factors; 
comment, PRODUCT multiplies the nuinbers stored from index 
s through f inclusive in the array ‘factors’, preventing ex- 
ponent overflow. The answer is normalized 30 that 1.0 > abs 
(PRODUCT) = 0.1. The exponent appears in ez; 
begin integer ¢; real p, pl; 
ex := 0; p:= 1.0; 
for i := s step 1 until f do 
begin 
pi := factors ti]; 
if abs(pl) < 0.1 then begin pl = 10.0 X pl; 
end; 
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p:= pX pl; 
if p = O then begin ex := 0; go tofin end; 
1: if abs(p) < 0.1 then 
begin p := p X 10.0; 
2: if abs(p)21.0 then 
begin p := p/10.0; ex := ex +1; 
end; 
fin: PRODUCT := p 
end PRODUCT; 
procedure RESIDUALS (A) order:(n) right-hand sides:(B) 
column of B:(k) approximate solution:(X) residuals:(res); 
integer n, k; real array A, B, X, res; 
comment, RESIDUALS computes 6 — Ay where 5b is the kth 
column of the right-hand side matrix B and y is the Ath column 
of X; 
real procedure ]P2 (A) row: (t) order:(n) approximate 
solution :CY) 
column:(k) extra therm:(¢); 
integer i,k, n; real? real array A, X; 
comment, I P2 forms the inner product of row 7 of the matrix 
A and column & of the solution matrix X, then adds the 
single term ¢. It is essential that 7P2 be an ‘‘accumulating’’ 
or double precision inner product as discussed in reference 
[3] p. 296. The value of 7 P2 is the rounded single precision 
result of the double precision arithmetic. The body of the 
procedure is left undefined; 
begin integer 7; 
for 1 := 1 step 1 until n do 
res[t] := —IP2(A,i,n,X ,k,— Bli,k]) 
end RESIDUALS; 
procedure SOLVE (A) order:(n) right-hand side:(b) pivots: 
(pivot) answer :(y); 
integer 7; integer array pivol; real array A, b, y; 
comment, SOLVE processes a right-hand side 6 and then back- 
solves for the solution y using the LU decomposition provided 
by CROUT; 
begin integer k, p; real ¢; 
for k := 1 step 1 until n do 
hegin 
t:= b[pivot[k]}]; blptvot{k]] := bia]; 
for p := lstepl untilk—-ldot:= ¢— <Alk,p] x b[pl;7 
blk] := ¢ 
end ...having modified 6 by L inverse; 
comment, now the back solution for y; 
for k := n step —1 until 1 do 
begin 
t:= bk]; 
for p := k+l step l until ndot:= ¢ — Alk,p] X ylp]; 
y(k] := 
end backsolution 
end SOLVE 
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ex : = ex—1; go tol end; 


go to 2 end; 
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CERTIFICATION OF ALGORITHM 135 

CROUT WITH EQUILIBRATION AND ITERATION 
[William Marshall McKeeman,* Comm. ACM, Nov. 
1962] 

WittiamM MarsHaLL McK&EEmaAn, 

Stanford University, Stanford, Calif. 


* This work was supported in part by the Office of Naval Re- 
search under contract Nonr 225(87). 


A Bauaeou translation of the algorithm was tested for accuracy, 
proper termination and running time on the Burroughs 220. 
The exact inverse of the Hilbert segment of order 6 can be stored 
in the 8-decimal-digit floating word of the B220 and was used in 
the accuracy and termination tests. The Hilbert segment He 
is very ill-conditioned (for the spectral norm, || He ||-|| He || = 
1.38 X 107). Hence the number of iterations required should not 
be taken as typical. 

The [n,n] element (mathematically 7, = .090909 --- ) is repre- 
sentative of the behavior of the rest: 


equilibration by 


“exact” equilibration : 
largest element in row 


(by powers of 10) 


initial solution .092587535 -094091506 
first iteration .090877240 .091498265 
second iteration .090909695 .091570311 
third iteration .090909080 .091568310 
fourth iteration .090909091 .091568365 
fifth iteration terminated .091568364 
terminated 


Conclusions: The iterating procedure terminated correctly, 
or performed one extra iteration in each case. If the equilibration 
procedure alters the data, the iteration will converge to the solu- 
tion for the altered matrix. If the matrix is ill-conditioned, as in 
the case above, the equilibration may cost a great deal more than 
it gains. As a practical matter, a machine language substitute for 
EQUILIBRATE which will not cause rounding of the data is 
probably the best course of action. 

The running time is approximately proportional to n? as ex- 
pected. If for a given machine, uz is the floating multiply time in 
seconds, one can expect that run time will be given by ri := 1.3 X 
# X (n+ 7) f 3 seconds for a call on LINEARSYSTEM with one 
right-hand side. 

The division of run time between the various phases of the 
algorithm is as follows: 
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1. Savace AND LuxKacs, Tables of inverses of finite segment of 
the Hilbert matrix. In Olga Taussky (Ed.), Contributions to 
the Solution of ‘Systems of Linear Equations and the Deter- 
mination of Eigenvalues, pp. 105-108, Nat. Bur. Standards 
Appl. Math. Series no. 39, U.S. Government Printing Office, 
Wash., D.C., 1954. 
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REMARK ON ALGORITHM 135 [F4] 

CROUT WITH EQUILIBRATION AND ITERATION 
[W. M. McKeeman, Comm. ACM 6 (Nov. 1962), 555- 
557, 559] 

Wittiam MarsHaty McKerreman (Recd. 1 Apr. 1964) 

Computation Center, Stanford University, Stanford, 
Calif. 


The following corrections to the published algorithm are recom- 
mended: 

1. Two lines above the bottom line of procedure SOLVE one 
must change 


ylk}:=t to  yfk]):= t/A[k,k] 


2. In procedure EQUILIBRATE, all occurrences of the sub- 
script k must be changed to j. 

3. The statement cnr := 1.0 should be added at the start of the 
body of procedure LINEARSYSTEM, so that cnr will have a value 
the first time it is used. 

4, Line 19 from the end of LINEARSYSTEM should be changed 
from 


if normdy = 0 then begin cnr := 1.0; go to enditer end; 


to read 
if normdy = 0 then go to enditer; 


This correction makes sure that cnr retains a reasonable value in 
case normdy should be 0 for some column. 

5. The symbol ‘-”? must be removed from the parameter de- 
limiters in the declarations of procedures LINEARSYSTEM, 
RESIDUALS and SOLVE. 

6. Four lines above the bottom line of procedure LINEAR- 
SYSTEM, delete the first occurrence of X[i,k] : = 

7. In the third line of the heading of procedure I P2, the parame- 
ter delimiter 

) extra therm: ( 
should be changed to 
) extra term :( 


REMARK ON ALGORITHM 135 [F4] 

CROUT WITH EQUILIBRATION AND ITERATION 
[W. M. McKeeman, Comm. ACM 6& (Nov. 1962), 553- 
555, 557; 7 (July 1964), 421] 

Loren P. Muissner (Recd. 21 Oct. 1964) 

Lawrence Radiation Lab., U. of California, Berkeley. 


1. The following error in the published algorithm is noted: The 
procedure JP1 forms the sum of A[i, p] X Alp, k]; however, two 
lines above the bottom line of procedure CROUT an attempt is 
made to use JP1 to form the sum of A[k, p] X Alp, Jj]. 

A possible way of correcting this is to add a procedure [Pla 
which is identical with /P1 except that k is written for 7 and j 
for k. Since the procedure is used often, making the correction in 
this way is not unreasonable. A more extensive ungertaking would 
be to modify CROUT to use a more general procedure such as 
INNERPRODUCT [1]. 

2. The following comment is made in view of the reference to 
this algorithm in a recent Editor’s Note [2]: In the use of Algo- 
rithm 135 as a determinant evaluator, it may be well to set m, the 
‘number of right-hand sides’’ to 1 instead of zero and give an 
arbitrary nonzero right-hand side such as (1, 0, 0, ---). This will 
cause a calculation of the ‘‘condition,’’ and possibly an exit to 
singular, to call the user’s attention to cases in which the deter- 
minant is nonsense. 
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ALGORITHM 136 
YNLARGEMENT OF A GROUP 
M. WEtis* 

University of Leeds, England 


* Currently with Burroughs Corporation, Pasadena, California 


procedure Enlarge group (G, n, g, Abelian); 
array G,g; integer n; Boolean Abelian; 
comment This procedure combines the element g with the sub- 
group G, of n elements, to form a new group. The Boolean 
Abelian has the value true if the group to which G and g belong 
is Abelian. Two procedures, multiply and equal are assumed 
to be declared: multiply (G[i]) by : (Glj]) to give : (G{k]) will set 
the element G, equal to the product of the elements G; and G;. 
equal (G[t], G[j]) is a Boolean procedure whose value is true 
if, and only if, the elements G; and G; are equal. On leaving the 
procedure the enlarged group is in G, and n is equal to the 
number of elements in the new sub-group G. The procedure 
will function correctly if g is included in G on entry. It is prob- 
able that g and the elements of G will be arrays, and the pro- 
cedure body will, in practice, need to be altered considerably. 
The procedure has been used successfully in connection with 
problems of space-group theory; 
begin integer 7, j, k; 
for 71 := 1 step 1 until n do 
if equal (G{t], g) then go to not new generator; 
ni=n+1; G[n] := g; 
for 1 := n step 1 until n do 
begin for j := 1 step 1 until n do 
begin multiply (G[t], Gls], @[n+1)); 
for k := 1 step 1 until n do 
if equal (G[k], G[n+1]) then go to not new element 1; 
ni=n+1; 
not new element 1: if Abelian then go to take next element; 
multiply (G7), Gz], GIn-+1)); 
for k := 1 step 1 until n do 
if equal (G[k], G[n+1]) then go to not new element 2; 
n:=n+1; 
not new element 2: take next element: 
end of j-loop; 
end of i-loop; 
not new generator: end of group enlargement 
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ALGORITHM 137 

NESTING OF FOR STATEMENT I 
Daviy M. Daum & M. We tts* 
Burroughs Corp., Pasadena, Calif. 


* On leave of absence from the University of Leeds, England. 


procedure Fors 1 (n, P); 

valuen; integern; procedure P; 

comment Fors 1 generates a nest of n for statements with the 
procedure P at their center. Two non-local arrays J and U, 
which give the value of the controlled variable and its upper 
bound for each level are assumed to be declared; 

begin integer j; 
ifn = O0then P 
else for 7 := 1 step 1 until U[n] do 
begin I([n] :=j; Fors 1 (n—1,P) end end Fors 1 
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ALGORITHM 138 

NESTING OF FOR STATEMENT II 
Davin M. Daum & M. WELLS* 
Burroughs Corp., Pasadena, Calif. 


* On leave of absence from the University of Leeds, England. . 


procedure Fors 2 (P); 

procedure P; 

comment Fors 2 performs the same function as Fors 1, but is 
more economic of storage space. It is expected, however, 
that Fors 1 would be more economic of time. The formal 
parameter n is now replaced by the non-local integer 7; 

begin if n = 0 then P 
else for I[n] := 1 step 1 until U[n] do 
begin n := n—1; Fors 2 (P) end; 
n:= n+ 1-end Fors 2 
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ALGORITHM 139 

SOLUTIONS OF THE DIOPHANTINE EQUATION 
J. BE. L. Peck 

University of Alberta, Calgary, Alberta, Canada 


procedure Diophantus (@,b,c); integer a,b,c; 

comment This procedure seeks the integer solutions of the 
equation az + by = c, where the integers a,b,c are given. It 
assumes a non-local integer M, which should be as large as 
storage will allow, two nonlocal labels INDETERMINATE 
and NO SOLUTION and two non-local Boolean variables 
‘general solution’ and ‘time permits’ which are self explanatory. 
It also assumes the procedures abs, sign and print; 

begin integer n,r,s,d,i;_ integer array q{1:M]; 

ni=t:=0; d:= 58 := abs(a); r := abs(b); 

comment d will become the greatest common divisor of a and b. 


If b = 0 thend = |a|. The vector q will retain the successive 
quotients in the Euclidean algorithm ri = riggs + Tiyi, 
a= 1, 2,---,n, whereO0 S$ rigs < ri, m= lal, = |b, 


and Tau = 0; 
fori := 71+ 1 while r ~ 0do 
beginn :=7; d:=r; g{i]:=s~+d; 
ri=s—dX q(t]; s:=dend This records the quotients and 
the number n of divisions for use below; 
ifd = 0 then go to if c = 0 then INDETERMINATE 
else NO SOLUTION; comment The case d = 0 occurs when 
a? + 6? = 0. If d now does not divide c then the equation can- 
not be solved so; 
if (c + d) X d # ¢ then go to NO SOLUTION; 
ifd ~ 1 then 
begin a := a/d, b := b/d; c := c/d end, which removes 
the common factor and reduces the equation to the case 
where a and b are relatively prime; 
begin comment We shall now find wu; and v; in order to 


express 
1 = au; + bv; , using the relations r, = rivi + ri: 5 
t=nn—-l--),lo=1, uw =0, andra = —ng +1, 
t= n—1,n—2,-+-,1; integer u,v; 

ifn = 0 then 
begin v := 0; u := 1 end, which takes care of the case 

b=0 

else 

begin v := 1; u:=0; 


for 1 := n—1 step —1 until 1 do 
begin integer (; 
{i= v; vi=u-vX gqtl;uc:=t 
end 1 
end the case n ~ 0. It remains now to multiply the equality 
1 = au; + bv; through by c; 
begin integer 20, 40; 
x0 :=cXuX sign(a); yO:=cXv X sign(b);_ print (z0,y0); 
comment If 20 ,yo is a particular solution then 2 + 1b, 


yo -F ta, 1=1,2,... gives the general solution. Therefore;- 


if general solution then 
begin u := b; v :=a; 
A: print(z0 + wu, yO — v); print(z0—4u, y0 + »); 
uwi=u+tobs vi=vt+a; 
if time permits then go to A 
end general solution and 

end solution. 

end u,v 
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end Diophantus. 


CERTIFICATION OF ALGORITHM 139 [A1] 
SOLUTIONS OF THE DIOPHANTINE EQUATION 
[J.E.L. Peck, Comm. ACM 56 (Nov. 1962), 556] 
Henry J. Bow.pEn (Recd. 30 Sept. 1964 and 5 Nov. 1964) 
Westinghouse Electric Corp., R&D Ctr., Pittsburgh, Pa. 


Algorithm 139 was transcribed into Burroughs Extended AuGou 
after the following typographical error was corrected: On the 
line following “if d ~ 1 then” replace “a := a/d,” by “a := a/d;”’. 

The cases shown in the table were tried, with the results shown 
in columns 4 and 5. These solutions are correct, but perhaps not 
too useful. Of course, a definition of “useful’’ in this context would 
be rather subjective; in any case, the user can always obtain an 
arbitrary solution ‘‘useful’’ for his purpose. We have chosen to 
regard a small value of x as a criterion for usefulness, and obtain 
this by inserting, just before ‘‘print (20, y0)’’, the statements 

e:= 20+ 6b; 200:=20—cXb; yO:= yO+ec Xa; 

The following remarks have to do with matters of programming 
taste rather than accuracy. 

(a) «A value part of form value a, b, c; should be inserted to 
avoid side effects: 

(b) The results should be passed back to the calling program 
for use by the caller. This requires the addition of two call-by- 
name parameters (x0, y0), and the removal of the declaration 
integer x0, y0;. The provisions for printing the results should be 
omitted. 

(c) The procedure contains a deliberate possibility of an in- 
finite loop. This is unacceptable on most operating systems and 
should be omitted. 

(d) The provision of an array (q) ‘‘as large as storage will 
allow’”’ is rather indefinite. The algorithm as given provides no 
test to prevent exceeding this arbitrary size. The number of par- 
tial quotients in the Euclidean algorithm may be shown to be no 
more than five times the number of decimal digits in the (largest 
of the) coefficients a, b, c, so a size of five times the number of digits 
in the largest integer to be considered is sufficient. 

The algorithm, modified as suggested above, gives the results 
in columns 6 and 7 of the table below. The execution time on the 
B-5000 was approximately 40 milliseconds. 


original modified 
a b., ¢C x0 40 x0 40 
1000 23 1046 — 2092 91002 —22 1002 
0 0 0 indeterminate 
57 — 103 47009 22094238 1222234 73 —416 
10 12 578 — 289 289 —1 49 
10 12 97 no solution 
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ALGORITHM 140 

MATRIX INVERSION 

P. Z. INGERMAN 

University of Pennsylvania, Philadelphia, Penn. 


procedure invert (a) of order:(n) with tolerance:(eps) and 
error exit:(oops) ; 
value n, eps; array a; integer n; real eps; label oops; 
comment This procedure inverts a matrix by using elementary 
row operations. Although the method is not particularly good 
for ill-conditioned matrices, the simplicity of the algorithm 
and the fact that the inversion occurs in place make it useful 
on occasion; 
begin integer 7; 
for 7 := 1 step 1 until n do 
begin integer j,k; real q; 
q := ali,z]; 
if abs(q) Sabs(eps) then go to oops; 
alz,tq} := 1; 
if g~1 then for k := 1 step 1 until n do a[i,k] := alt,k]/q; 
for j := 1 step 1 until n do 
if ix~j then 
begin g := afj,7];_ afj,z] := 0: 
for k := 1 step 1 until n do 
alj,k) := alj,k]—qxXal[t,k] end end end 


CERTIFICATION OF ALGORITHM 140 

MATRIX INVERSION [P. Z. Ingerman, Comm. ACM, 
Nov. 1962] 

RIcHARD GEORGE* 

Argonne National Laboratory, Argonne, IIl. 

* Work supported by the United States Atomic Energy Commission. 

Algorithm 140 was tested on the LGP-30, using Scaup, a load- 
and-go compiler from the Dartmouth College Computation 
Center, and it was shown to be syntactically correct. 

It is indeed a simple procedure. It is so simple because the 
author has eliminated the very necessary search for largest ele- 
ments and the row interchanges. As a result, this procedure will 
fail to invert many non-singular matrices. To be invertable by this 
procedure, a matrix must be such that all of its leading diagonal 
submatrices will have non-zero determinants. 

One would do well to avoid this algorithm and use one (such 
as 120) which employs the pivoting process. 
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ALGORITHM 141 

PATH MATRIX 

P. Z. INGERMAN 

University of Pennsylvania, Philadelphia, Penn. 


procedure find path (a, n); 

value n; Boolean array a; integer 7; 

comment This procedure is merely an Algol implementation 
of the method of Warshall (JACM 9(1962), 11-12). Some ad- 
vantage is taken of the characteristics of the problem to in- 
crease the efficiency; 

begin integer 7, j, k; 
for 7 := 1 step 1 until n do 
for 2 := 1 step 1 until n do 
if ali,j] A t#j then 
for k := 1 step 1 until do 
alt,k] := aft,k]Valj,k] end findpath 
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ALGORITHM 142 

TRIANGULAR REGRESSION 

W. L. Harvey anp J. S. Lewis 

Aluminum Company of America, Pittsburgh, Penn. 


procedure (rireg (n, nob, dep, pmaz); 
real pmax; integer n, nob, dep; 
comment irireg is a multiple regression procedure which 
develops and inverts only the upper triangular portion of a 
correlation matrix of order n. Thei,jth ({j) matrix element 
is r(c;-+j) where the c’s are cram numbers (ref. Algorithm 67, 
J. Caffey, Comm. ACM 4, July 1961). dep < n dependent 
variables are regressed simultaneously. Read (uw) is an input 
procedure for single elements. The input consists of nob ob- 
servations on » variables. The first dep variables are con- 
sidered dependent and the remaining n — dep are considered 
independent variables. Independent variables are dropped 
when the pivotal element exceeds pmaz during the inversion. 
Total variable storage is 14 + 3n + n(n+1)/2; 
begin integer i1, 72, 13, cl, c2, c3, df; integer array c[l:n]; 
real d, p, a; real array r[1:n(n+1)/2], v[1:n], m[L:n]}; 
initial: df := 0; for il := 1 step 1 until n do m[il] := 0; 
for 71 := 1 step 1 until n(n+1)/2 do r[71] := 0; 
for 71 := 1 step 1 until nob do 
begin for 712 := 1 step 1 until n do Read (v{i2)); 
cl:=0; for 72 := 1 step 1 until n do 
begin d := v[i2];| m[i2] : = m[i2] + d; 
for 13 := 12 step 1 until n do 
begin cl :=cl +1; rfcl]:=7r[cl] + [¢3] K dend 
end 72; 
end i1; 
correlation: cl:=1; a:=1/nob; foril:=1 step luntilndo 
begin v[71] := 1/sqgrt(r[cl]— (m[z1]f2) xa); 
rel] :=1; cli=cl+n—il 
end 71; 
cl:=1; 
begin d := a X m[?1]; 
mil] := d; 
for i2 := 71 + 1 step 1 until n do 
begin r[cl] := (r[el]—dXm[22])  v[i2] X p; 
end 72; 
end i1; 
comment variable 7 may be dropped from the 
regression by setting v; = 0 and df equal to the 
number of variables dropped; 
ili=—n; 722:=n+1; for73:= 1 step 1 until n do 
begin 71 := i1 + 12 — 73; c[i3] := 71 
end il; 
inversion: for il := dep + 1 step 1 until n do 
begin cl := c[i1]; if v[71] ¥ 0 then 
begin p := 1/r(cl+i1]; if p > pmaz then 
begin df :=df+1; goto YY end else 
begin r[cl+71] := p; for 72 := 1 step 1 
until 71 — 1 do 
begin c2.:= c[t2]; a@:= p X rlc2-+71]; 
for 13 := 72 step 1 until n while 73 ¥ 71 do 


input: 


for 71 := 1 step 1 until n do 
p:= vil]; cl:=cl +1; 


cram: 
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begin if 73 < 711 then 
begin c3 := c[i3];_ d := r{[c3+71] end 
else d := —r{c1+3]; 
r[e2+73].: = r[e2+73] + dX a 
end 73; 
end 72; 
for 12 := 11 +.1 step 1 until n do 
begin a := p X r{cl+72]; c2:= c[i2]; 
for 13 : = 12 step 1 until n do 
r[e2+73] := r[c2+73] — a X r[cl+73]; 
end 72; 
ZZ: for i2 := 1 step 1 until 71 — 1 do 
begin c2 := c[i2+71]; r[c2]:= — p X r[c2} 
end 722; 
for 12:= cl + i14+ 1 step 1 until” + cl do 
r[i2] := p X r[t2] 
end 
end else 
YY: begin p:=0; rfcl+71]:=0; goto ZZ end 
d := 1/(nob—n+dep—I+df); for il := 1 step 1 until 
dep do 
if v[z1] ~ 0 then 
begina:=0; p:= 1/v{t1]; 
+1 step 1 until n do 
begin if r[i2] + 0 then 
begin r[cl+72] := —r[cl+72] X v[22] X p; ai= 
a+ rlcl+i2] X m[i2] 
end 
end 72; 
vft1] := (2—r[el+71]) & d/(vf21]T2) 
comment: v[l:dep] now contains the mean square 
deviations from regressions for the dependent vari- 
ables. The coefficients of determination R? may be 
obtained as r[cl+71] — 1; 
r{cl+71] := m{z1] — a else 
begin cl := c[il]; for 12 := 
cl + n do r{i2] := 0 
end 
end 
comment The r-array now contains the constants and coeffi- 
cients of regression, and the inverse of the correlation matrix of 
the independent variables that have been kept. The following 
example will help to locate the information in the 7 array. 


coeff: 


cl := c[il]; for 12 := dep 


cl + 71 step 1 until 


Example: n =6 dep = 3 
Ty 7273 Ifa Ts 7 ba ibis bar bar 
TT. \To M0 Tu bos biz Dez Bae 
rie Tas Tia 75 bos ibis bos Bas _ 
Tie Y17 118 pil rpi2 ris 
ry Te p22 p23 
re 7338 


The variances and covariances of the regression coefficients for 
the jth dependent variable can be determined by— 
Var (b;;) = rx 0; & 0.2 
Covar (bijbk;) = r** X 0; K vy XK Ve; 
end trireg 
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TREESORT 1 

Arraur F. Kaurg, Jr. 

Westinghouse Electric Corp., Pittsburgh, Penn. 


procedure TREESORT 1 (UNSORTED, n, SORTED, k); 
value n, k; 

integer n,k; array UNSORTED, SORTED; 

comment TREESORT 1 is a revision of TREESORT (AL- 
GORITHM 113) which requires neither the “packed” array m 
nor the machine procedures pack, left half, right half, and mini- 
mum. The identifier infinity is used as nonlocal real variable 
with value greater than any element of UNSORTED; 

begin integer 7, j; array ml {(1:2Xn—1]; 
integer array m2 [1:2Xn—-1); 

procedure minimum; if m1 [2X7] S m1[2Xi+1] then 
begin m1[t] := m1[2Xi]; m2[z] := m2[2X7] end else 
begin ml{i] >= m1[2Xi+1]; m2[¢] := m2[2Xi+1] end mini- 

mum; 

for1:= nstep 1 until 2 X n — 1 do begin m1 [i] : = UNSORTED 
li—-n+1]; m2{i]:= 7 end 

for 7 := n — 1 step —1 until 1 do minimum; 

for 7 := 1 step 1 until k do 
begin SORTED [j] := ml1{1]; 71 := m2[1]; mlz] := infinity; 

for 1 := 1+ 2 while 7 > 0 do minimum end 
end TREESORT 1 
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ALGORITHM 144 

TREESORT 2 

ARTHUR F. Kavups, Jr. 

Westinghouse Electric Corp., Pittsburgh, Penn. 


procedure TREESORT 2 (UNSORTED, n, SORTED, k, ordered); 
value n, k; 
integer n,k; array UNSORTED, SORTED; Boolean proce- 
dure ordered; 
comment TREESORT 2 is a generalized version of TREESORT 
1. The Boolean procedure ordered is to have two real argu- 
ments. The array SORTED will have the property that ordered 
(SORTED(i], SORTED{j]) is true when j > 7 if ordered is a 
linear order relation; 
begin integer 7, j; array m1 [1:2Xn—1]; integer array m2 
[l:2Xn—-1]; 
procedure minimum; if ordered (m1[2X1], m1[2Xi+1]) then 
begin m1[t] := m1[2X7];\ m2[i] : = m2[2X7] end else 
begin ml[i] := m1(2Xi+1]; m2[i] := m2[2xi+1] end mini- 
mum; 
for 7 := nstep 1 until 2 X n — 1 do begin ml [i] := UNSORTED 
{t—n+1]; m2[c] := 7 end 
for 1 := n — 1 step —1 until 1 do minimum; 
for j := 1 step 1 until k do 
begin SORTED{j] := mil]; ¢:= m2[l]; mi[i] := infinity; 
for 1 := 74 + 2 while i > 0 do minimum end 
end TREESORT 2 
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ALGORITHM 145 

ADAPTIVE NUMERICAL INTEGRATION BY 
SIMPSON’S RULE 

Wintitiam Marsuaty McKrreman* 

Stanford University, Stanford, Calif. 


*This work was supported in part by the Office of Naval 
Research under contract Non4 225(87). 


real procedure Integral (F) limits: (a, b) tolerance: (eps); 
real procedure F; real a, b, eps; 
begin comment Integral will numerically approximate the 
integral of the function F between the limits a and b by the 
application of a modified Simpson’s rule. Although eps is a 
measure of the relative error of the result, the actual error 
may be very much larger (e.g. whenever the answer is small 
because a positive area cancelled a negative area). The pro- 
cedure attempts to minimize the number of function evalua- 
tions by using small subdivisions of the interval only where 
required for the given tolerance; 
integer level; 
real procedure Sim son (F, a, da, Fa, Fm, Fb, absarea,est,eps) ; 
real procedure F; real a, da, Fa, Fm, Fb, absarea, est, eps; 
begin comment Recursive Simpson’s rule; 
real dz, x1, x2, estl, est2, est3, F1, F2, F3, F4, sum; 
dx := da/3.0; zl:=a+dzr; 22:= 21+ dz; 
Fl:= 4.0 X F(at+dz/2.0); F2:= F(zl); 
F3:= F(22); F4:= 40 X F(a+2.5xXdz); 
estl := (Fa+F1+F2) X dx/6.0; 
esi2 = (F2+Fm+F3) XK dx/6.0; 
esi3. := (F3+F4+Fb) X dx/6.0; 
absarea : = absarea-abs (est) + abs(est1) + abs(est2) + abs(est3); 
sum := estl + esi2 + esl3; 
level := level + 1; 
Simpson := if (cos(est-sum) S eps X absarea /\ est # 1.0) V 
level = 7 then sum 
else Simpson (F, a, dz, Fa, F1, F2, absarea, estl, eps/3.0) 
+ Simpson (F, x1, dx, F2, Fm, F3, absarea, est2, eps/3.0) 
+ Simpson (F, x2, dx, F3, F4, Fb, absarea, est3, eps/3.0); 
level := level —1; 
end Simpson; 
level = 1; — 
Integral := Simpson (F, b-a, F(a), 4.0 X F((a+b)/2.0), F(b), 
1.0, 1.0, eps) 
end Integral 13 


CERTIFICATION OF ALGORITHM 145 
ADAPTIVE NUMERICAL INTEGRATION BY 
SIMPSON’S RULE [W. McKeeman. Comm. ACM, 
Dec. 1962] 
Wm. M. McKremMan 
Stanford University, Stanford, Calif. 
Suggested changes in the code: 
1. Replace all occurrences of eps/3.0 by eps/1.7. 
2. Replace level 2 7 by level 2 20. 


3. The second parameter a in the final call of Simpson was 
omitted; insert it. 
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With the above changes, a BaLaou translation of Integral nas 
been tested successfully on a large number of functions. An ex- 
ample of its behavior is given below: 

Machine: Burroughs 220, 8 decimal digit floating-point mantissa. 
f(z) = 1.0/sqrt(abs(x)); which has a pole at the origin. 
a= —9.0; b = 1000.0; correct answer = 206.0; 


eps computer answer| relative error 


0.1 200. 22251 0.028 

0.01 206 .00226 (0).0000107 
0.001 206 . 00092 0.0000045 
0.0001 205 . 99985 0.0000007 


If the recursion was allowed to go thirty levels deep we found: 
0.0001 206.00005 0.0000002 


The graph below shows the adaptive clustering of the points of 
evaluation around the pole of the function (taken from the first 
example above). 


f(x) = 1.0/sgrt (abs(x)) 


0 100 200 300 400 500 600 700 800 900 1000 10000 


Each vertical line represents a point of 
evaluation for the function during the 
execution of the «all: 

integral (f, —9.0, 10000.0, 0.1); 


REMARK ON ALGORITHM 145 [D1] 

ADAPTIVE NUMERICAL INTEGRATION BY 
SIMPSON’S RULE [William Marshall McKeeman, 
Comm. ACM 6, (Dec. 1962), 604] 

M. C. Prxe (Recd. 5 Oct. 1964 and 23 Nov. 1964) 

Statistical Research Unit of the British Medical Research 
Council, University College Hospital Medical School, 
London, United Kingdom 


This procedure was tested on the ICT Atlas computer and 

found satisfactory after the following three modifications were 
made: 
(1) add “real absarea;’’ on the line following ‘integer level;’’, 
(2) add “absarea := 1.0;”? on the line following ‘‘level := 1;’’, 
(3) substitute 

“Integral := Simpson (F, a, b—a, F(a), 4.0XF((a+b)/2.0), 

F(b), absarea, 1.0, eps)”’ 


COLLECTED ALGORITHMS (cont.) 


for 
“Integral := Simpson (F, b—a, F(a), 4.0XF((a4+-0)/2.0), Fd), 
1.0, 1.0, eps)’’. 
These corrections are necessary since absarea appears on the left- 
hand side of an assignment statement, namely, in line 10 of the 
real procedure Simpson, and yet when Simpson is called in the 
third to last line of the real procedure [niegral the actual parame- 
ter for absarea is given as 1.0. 
The author wishes to thank the referee for helpful suggestions. 
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ALGORITHM 146 
MULTIPLE INTEGRATION 
Wiiu1aAM Marsyatt, McKErreman* 


Stanford University, Stanford, Calif. 
* This work was supported in part by the Office of Naval Re- 
search under contract Non4 225(387). 


real procedure MultipleIntegral (F) limits: (@, b) order: (n) 
tolerance: (eps); 
real procedure F; real array a,b; real eps; integer 7, 
begin comment F is a function of n variables which are stored 
in an internal array z. MultipleIntegral approximates the 
multiple integral of F between the n pairs of limits stored in 
the parameter arrays a and b. For a mesh of k steps on each 
axis, the number of function evaluations required for an 
integral of nth order is approximately kTn. One consequence 
is that the practical limit on n is quite small. Another is that 
any inefficiency in the (undefined) procedure Integral will 
reflect itself to the nth power in MultipleIntegral. The adap- 
tive procedure Integral is recommended; 
real array z{l:n+1]; integer azis; 
real procedure Integral (F) limits: (a, b) tolerance: (eps) ; 
real procedure F; real a, b, eps; 
begin comment The body of procedure Integrai is left 
undefined. For it one may substitute any procedure of the 
same name that evaluates the integral of a function of a single 
variable between the real limits a and 6; 
end Integral; 
real procedure MI(y); real y; 
begin comment Recursive multiple integration; 
zlazis] := y; 
axis += axis —1; 
MI := if avis = 0 then F(z) else 
Integral (MI, alazxis], blaxis], eps/n); 


axis >= axis +1; 
end MI; 
axis :=n+1; 


MultipleIntegral := MI(O) 
end MultipleIntegral 


CERTIVICATION OF ALGORITHM 146 
MULTIPLE INTEGRATION [W. M. Mckceman, 
Comm. ACM 6 (Dec. 1962), 604| 
NIKLAUS WIRTH (Reed. 6 Jan. 1964) 
Computer Science Div., Stanford U., Stanford, Calif. 
Algorithm 146 was translated into a generalized ALGou [cf. N. 
Wirth, A generalization of ALGOL, Comm. ACM 6 (Sept. 1963), 
547-554] and successfully run on the Stanford IBM 7090 computer. 
Algorithm 60, Romberg Integration [Comm. ACM 4 (June 1961), 
255; 5 (Mar. 1962), 168; 5 (May 1962), 281] was used for the real 
procedure Integral. 
The main disadvantage of Algorithm 146 is that the bounds of 
the domain of integration must be constant, i.e. the domain 
must always have the form of a rectangular hyperbox. 
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ALGORITHM 147 

PSIF 

D. Amir 

Ministry of Defense, Israel 


real procedure psif(x, a, tan, In) exit: (errerit); 

value x,a; label errexit; real procedure tan, In; 

comment Computes the logarithmic derivative of the factorial 
function defined by: 

va) -2Y_ etd) 

x! T(x + 1) 
We make use of the expansion: (1) W(z7) = Inz + 1/22 — 
1/122? + 1/120z4 — 1/25225 + ¢, (2) « < 1/240x? and of the re- 
cursion relation, (3) ¥(z) = W¥(a-+n) — (1/(z+1)+...+1/(a+n)). 
For x < —1 we use: (4) W(—2x) = rtan r(x+0.5) + V(x—1). 
The value of x is increased up toa. Then © is calculated by (8) 
and (1). The error is then less than 1/240a8; 

begin real psi, pet; psi := 0; 

ifx > —-1 Ax # Othen goto pos; 

if z = 0 then begin psi := —0.5772156649; 
begin integer x1; 21 := 2; 
if x = x1 then go to errezit end 
comment psi is infinite; 
pet >= 3.141592654; « := —x — 1; 

pst := pet X tan(peiX (x+0.5)); 
pos: if x = a then go to large; 


go to exit end; 


xi=ax2-+ 1; pst := pst —1/x; goto pos; 
large: begin realy; y := 1/z; 

psi := psi + In(a) + y/2—y f 2/12 + y ft 4/120—y f 6/252; 
exit: psif >= pst; , 
end psif 


CERTIFICATION OF ALGORITHM 147 

PSIF [D. Amit, Comm. ACM., Dec. 62] 

Henry C. THacHer, Jr.* 

Reactor Eng. Div., Argonne National Lab., Argonne, Il. 


* Work supported by the U. S. Atomic Energy Commission. 


The following minor errors were noted in this algorithm: 
a. (3) in the comment should read e < 1/240 2%. 
b. The function fan is not a standard Augot function. It should be 
declared, or replaced by sin ( )/cos(_ ). 
c. The block labelled large should be closed by inserting end im- 
mediately after 252. 
The efficiency of the program would be improved by the follow- 
ing modifications: 
a. Let the statement 
if z = 0 then begin .. . end; 
be the first statement of the procedure body. 
b. Delete the condition x +0 from theif clause, 


ifz> —-lAz# Othen... 


c. Delete the declaration of pez, and the assignment of the value 
of 3.141592654 to pez in the statement 
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pst := pet X sin(pei X (x+0.5))/cos(petX (x+0.5)); 
replace pei by the value 3.141592654. 
d. Replace the block labelled large by: 

large: begin realy; x2:= 1/2; y:=2X2; 

pst := pst — In(x) + 2/2 — ((y/252—0.008333333333) K y + 

0.08333333333) X y end; 

With these changes, the body of the procedure was translated 
and run on the LGP-30 computer using the Dartmouth ScaLp 
processor. The program was used to tabulate psif(z) forz = —1 
(0.5)0(0.005)1.250. With a = 3.0 the results agreed with tabulated 
values to within 3 in the 6th decimal place. This is considered 
satisfactory, since one decimal place is lost in applying the recur- 
rence. Running time, including output on the Flexowriter and 
computation of new values of the independent variable, averaged 
about 30 seconds per value. 

It should be observed that psif(x) is ¥(z+1) as tabulated, for 
example, by Jahnke-Emde-Losch. 


CERTIFICATION OF ALGORITHM 147 [S14] 

PSIF [D. Amit, Comm. ACM & (Dec. 1962), 605] 

Ronatp G. Parsons* (Recd. 7 Dec. 1966 and 5 Aug. 
1969) 

Stanford Linear Accelerator Center, Stanford University, 
Stanford, CA 94305 


* Present address: Department of Physics, The University of 
Texas, Austin, TX 78712. Work supported by the US Atomic 
Energy Commission. 


KEY WORDS AND PHRASES: gamma function, logarithmic 
derivative, factorial function, psi function 
CR CATEGORIES: 5.12 


The following errors were noted in this algorithm in addition 
to those noted by Thacher [2]. 

a. (4) in the comment should read “For —z < —1 we use: (4) 
W(—2z) = V(z—1) + xr cot (rx)”. 

b. At the end of the first comment add: “Note that psif(z) = 
W(x) is ¥(w+1) as defined, for example, by Jahnke-Emde-Lésch”’ 
(see [1]). 

c. The statement in the algorithm before the label pos should 
read: pst := pei X cos (petXx)/sin (pei Xx); These errors caused 
the procedure to give incorrect results for psif(z, a) for < —1. 
d. The arguments tan and In should be deleted from the parameter 
list and real procedure tan, In; should be deleted from the speci- 
fication part of the procedure heading. 

With these changes and those of Thacher, the procedure was 
translated into Burroughs B5500 extended ALGor and run on the 
Stanford B5500. psif(z, a) was tabulated for « = —2.9(0.1)5.0 
with a = 8.0 The results agreed with tabulated values to within 
1/(240a8). 

REFERENCES: 

1. Jannxe-Empe-Loscu. Tables of Higher Functions (6th Ed.). 
McGraw-Hill, New York, 1960. 

2. Tuacuer, H. C., Jr. Certification of Algorithm 147. Comm. 
ACM 6 (Apr. 1963), 168. 
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ALGORITHM 148 

TERM OF MAGIC SQUARE 

D. M. Couttson 

Elliott Brothers (London) Ltd., Borehamwood, Herts. 


integer procedure magicterm (x, y,); value z, y,n; integer 
v,Y;, nN; 

comment for the magic square s[{l:n, 1:n], magicterm generates 
the element s[z, y], where n > 2 and n is odd. De la Loubére’s 
method is used; 

begin integer b, c; 
bi=y —2+ (n—-1) +2; c:=y+y—2; 
ifb 2 nthen b := 5 — nelseifb < Othenb:=b +n; 
ife >nthenc:=c — nelseifc S$ Othenc:=c+n:;: 
magicterm := bX n+e 

end magicterm 


CERTIFICATION OF ALGORITHM 148 

TERM OF MAGIC SQUARE [D. M. Collinson, Comm. 
ACM, Dec. 1962] 

J. N. R. Barnecur 

University of Alberta, Calgary; Calgary, Alberta, Canada 
MAGICTERM was translated into Fortran for the IBM 1620. 

The procedure was tested for terms of squares up to order 13. 

Correct results were obtained. For determination of complete 


squares operating time was not significantly different from Al- 
gorithm 118. 


CERTIFICATION OF ALGORITHM 148 

TERM OF MAGIC SQUARE [D. M. Collison, Comm. 
ACM, Dee. 62] 

Deitri THORO 

San Jose State College, San Jose, Calif. 

This algorithm was translated into Fortran and Foreo for the 
IBM 1620. No changes in the program were necessary. The ele- 
ments of magic squares of odd orders up to 15 were generated 
satisfactorily. 
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ALGORITHM 149 

COMPLETE ELLIPTIC INTEGRAL 

J. N. MERNER 

Burroughs Corp., Pasadena, Calif. 

comment The following two procedures, along with a test 
program were compiled and run by Peter Naur on the DISADEC 


computer. Compilation time for the 9 pass compiler was less 
than 10 seconds. The elliptic integral of the form 


ji dt 
0 Va'cos?t + b? sin? ¢ 


is evaluated by replacing a and b by their arithmetic and geo- 
metric means, respectively. ELIP 2 is a nonrecursive proce- 
dure to accomplish the same thing; 
real procedure ELIP 1 (a,b); valuea, b; real a, b; 
ELIP 1 := if abs(a—b) <1» —8 X a 
then 3.14159265/2/a 
else ELIP 1 ((a+b)/2, sqrt (aXb)); 
real procedure ELIP 2 (a,b); valuea,b; real a, 6; 
begin real C; 
L: C i= (a+b)/2; b:= sqrt @Xb); a:=c; 
if abs(a—b) <io —8 X a then ELIP 2:= 3.14159265/2/a 
else go to L end 


CERTIFICATION OF ALGORITHM 55 

COMPLETE ELLIPTIC INTEGRAL OF THE FIRST 
KIND [John R. Herndon, Comm. ACM, Apr. 1961] 
and 

CERTIFICATION OF ALGORITHM 149 

COMPLETE ELLIPTIC INTEGRAL [J. N. Merner, 
Comm. ACM, Dec. 1962] 

Henry C. THAcuEr, Jr.* 

Reactor Eng. Div., Argonne National Laboratory, 

Argonne, Il. 
* Work supported by the U.S. Atomic Energy Commission. 


149-P 1-R1 


The bodies of Algorithm 55 and of the second procedure of 
Algorithm 149 were tested on the LGP-30 computer using Sca.p, 
the Dartmouth “Loap-aNp-Go”’ translator for a substantial sub- 
set of ALcot 60. The floating-point arithmetic for this translator 
carries 7+ significant digits. 

In addition to modifications required because of the limitations 
of the Scaup subset, the following need correction: 

In Algorithm 55: 

' 1. The constant 0.054555509 should be 0.054544409. 

2. The function log should be In. 

In procedure ELIP 2 of Algorithm 149, the statement a := c 
should be a := C. 

The parameters of Algorithm 149 are related to the complete 
elliptic integral of the first kind by: K = axELIP(a, b) where 
the parameter m = k? = 1 — b/a. 

The maximum approximation error in Algorithm 55 is given by 
Hastings as about 0.60—6. In addition there is the possibility of 
serious cancellation error in forming the complementary param- 
eter t = 1 —k X k. For k near 1, errors as great as 4 significant 


digits were sustained. In these regions, the complementary 
parameter itself is a far more satisfactory parameter. 


The accuracy obtainable with Algorithm 149 is limited only by 
the arithmetic accuracy and the amount of effort which it is 
desired to expend. Six-figure accuracy was obtained with 5 appli- 
cations of the arithmetic-geometric mean for a = 1000, b = 2, 
and with one application for a = 500, b = 500. 

Neither algorithm is satisfactory for k = 1. The behavior for 
Algorithm 55 will be governed by the error exit from the logarithm 
procedure. Under these circumstances, Algorithm 149 goes into an 
endless loop. Algorithm 149 may also go into an endless loop of the 
terminating constant (o—8 in the published algorithm) is too 
small for the arithmetic being used. For the Scar arithmetic it 
was found necessary to increase this tolerance to 5.00—7. The 
resulting values of the elliptic integrals were, however, accurate 
to within 2 in the 7th significant digit (6th decimal). 

The relative efficiency of the two algorithms will depend 
strongly on the efficiency of the square-root and logarithm sub- 
ruutines. With most systems, Algorithm 55 will provide sufficient 
accuracy, and will be more efficient. If a square-root operation or 
a highly efficient square-root subroutine is available, Algorithm 
149 may well be the better method. 


ACM Transactions on Mathematical Software, Vol. 4,°‘No. 1, March 1978, Page 95. 


REMARK ON ALGORITHM 149 
Complete Elliptic Integral [S21] 


[J.N. Merner, Comm. ACM §&, 12 (Dec. 1962), 605] 


Ove Skovgaard [Recd 18 October 1976 and 14 February 1977] 
Institute of Hydrodynamics and Hydraulic Engineering, Technical University of 


Denmark, DK-2800 Lyngby, Denmark 


The text following the colon at the end of the fifth paragraph in [4] should read 


as follows: K = aXELIPi(a,b) or K 


— (b/a)*. 


aXELIP2(a,b), where m = kK? = 1 


A better procedure is given in [1, p. 86, procedure cell]. This procedure can for 
some computers be made slightly more efficient by eliminating the last assignment 


statement m := 


m/2 in the loop, replacing the second assignment statement 


m := kc + m with m := (kc + m) X .5 and replacing the last assignment state- 
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ment cell := pi/m with cell := (pi/2)/m. Note the variable m should not be 
confused with the parameter m = i’. 

A more efficient, but less portable procedure is defined in [2] and implemented,. 
for example, in the FUNPACK package [3]. 
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ALGORITHM 150 

SYMINV2 

H. RutisHauser 

Hidg. Technische Hochschule, Zurich, Switzerland 


procedure syminv2(a,n) result: (a) exit: (fail); value n; in- 

tegern; arraya; label fail; 

comment syminv2 obtains inverse of a symmetric matrix a of 
order n by a method which is similar to that given by Busing 
and Levy [Comm. ACM & (1962), 446} but requires no inter- 
changes of rows and columns nor storage space for an ad- 
ditional matrix Q, yet is numerically equivalent. The pro- 
cedure requires the upper triangular part of a to be given and 
overwrites it by the upper triangular part of the inverse which 
is again denoted by a. All pivots are chosen on the diagonal, 
and .if all further diagonal elements which are eligible as 
pivots vanish (this is impossible for a positive definite matrix 
a) then exit through fail occurs; 

begin 
real bigajj; 
integer i, j, k; 
real array p, g[{1:n]; 
Boolean array r(1:n]}; 


for 7 := 1 step 1 until n do 7r[t] := true; 
grand loop: 
for 1 :=1 step 1 until n do 
begin 
search for pivot: 
bigajj := 0; 
for j := 1 step 1 until » do 
begin 
if r[j] A abs(alj,7]) > bigajzj then 
begin 
bigajj := abs(alj,j]); 
k:=j 
end; 
end; 


if bigajj = 0 then go to fail; 
preparation of elimination step 7: 


r{k] := false; 
glk} := 1/afk,k); 
pik) := 1; : 
a(k,k] := 0; 
for j := 1 step 1 until kK—1 do 
begin 
plj] := alj,k]; 
gli] := (if r[j] then —alj,k] else a[j,k]) X q{k); 
alj,k] := 0 
end; 
for j := k+1 step 1 until 7 do 
begin 
pli] := if r[j] then a[k,j] else —al[k,j]; 
qlj] := —alk,j] X glk]; 
alk,j] := 0 
end; 


elimination proper: 
for j := 1 step 1 until n do 
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for k := j step 1 until n do 
alj,k] := alj,k] + pli] X alk] 
end grand loop 
end syminv2 


REMARK ON ALGORITHM 150 

SYMINV2 [H. Rutishauser, Comm. ACM, Feb. 1963] 

ArtTHurR Evans, Jr. 

Carnegie Institute of Technology, Pittsburgh, Pennsy]- 
vania 


The identifier ‘“‘a’’ appears twice in the procedure heading as 
a formal parameter. It is not clear that this situation has any 
meaning in ALGoL. Indeed, it is not at all obvious how one might 
translate the procedure. If the actual parameters corresponding 
to the two formal parameters with the same identifier are different 
there is no way for the translator (or for the reader) to distinguish 
which ‘a’ is to be used. Further, it would take a detailed examina- 
tion of the published algorithm to determine how this situation 
might be corrected. It is certainly not clear that it would be safe 
merely to delete one occurrence of the formal parameter ‘a’, since 
the operation of the algorithm might require that two separate 
matrices be available. 


REMARK ON ALGORITHM 150 

SYMINV2 [H. Rutishauser, Comm. ACM, Feb. 1963] 
H. RuTISHAUSER 

Eidg. Technische Hochschule, Zurich, Switzerland 


procedure syminv 2 (a, n) result: (a) exit: (fail); --- in- 
dicates that the value of parameter ‘‘a’’ is changed by the com- 
puting process (the matrix a is changed into its inverse, whereby 
the given matrix is destroyed). In any procedure call, the two 
actual parameters corresponding to the two a’s must be identical, 
otherwise the action of the procedure will be undefined (by virtue 
of the substitution rule). The user may also change the procedure 
heading into syminv 2 (a, n) exit : (fail); - without changing: 
the effect of the procedure. 


Epitor’s Norm: The ALCOR group has adopted the rule that 
if the value of a parameter is changed by the execution of the 
procedure, then the parameter should be listed twice. Although 
the AuGgou 60 Report does not forbid listing a formal parameter 
twice, it would appear that a compiler which thus restricts the 
language could not accept some of the examples given in the 
Auaou 60 Report. 


COLLECTED ALGORITHMS (cont.) 


CERTIFICATION OF ALGORITHM 150 

SYMINV2 [H. Rutishauser, Comm. ACM 6 (Feb. 1963), 
67] 

Perer Naur (Reed 27 Sept. 63) 

Regnecentralen, Copenhagen, Denmark 


Since the translator refuses to run programs with more than one 
occurrence of the same identifier in a formal parameter list, the 
second a was taken out when this procedure was run with the 
Giger ALGOL system [cf. also the discussion in Comm. ACM 6 
(July 1963), 390]. Otherwise it ran smoothly. For testing the ac- 
curacy, segments of the Hilbert matrix were inverted and the 
results multiplied by the original segment and compared with the 
unit matrix. The largest deviation in any element was found to be: 


Order Max. deviation from elements Order Maz. deviati: 1 from elements 
of the unit matrix of the unit matriz 

2 —1.4910—8 6 —7.3210—3 

3 —2,3810—7 7 —3.5910—1 

4 —1.53810—5 8 —2.9510 I 

5 -~3.3610—4 9 —1.2510 1 


These figures may be compared directly with the ones related 
to Algorithms 120, INVERSION IT, and gjr [Comm. ACM 6 (Aug. 
1963), 445]. A comparison shows that all three algorithms yield 
about the same accuracy, with syminv2 being the best in most 
cases, however. This is not too surprising since the knowledge that 
the matrix is symmetric ought to simplify the calculation con- 
siderably. 

The lengths of the three procedures after translation are as 
foifows: 


Number of 
GIER words 
syminv2 216 
INVERSION IT 279 
gjr 302 
Execution times for syminv2 in GiER ALGOL are: 
Order Time (sec) 
5 1 
10 3.5 
15 10.5 
20 23 


This is about half the time of execution of INVERSION ITI or gjr. 
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ALGORITHM 151 

LOCATION OF A VECTOR IN A LEXICO- 
GRAPHICALLY ORDERED LIST 

Henry F. Water 

United States Steel Corp., Applied Research Laboratory, 
Monroeville, Penn. 


integer procedure LOCATE (min, n, c, v, combinatorial) ; 

value v; integer min, n,c; integer array 2; 

imteger procedure combinatorial; 

comment This procedure locates the position, LOCATE, of a 
given vector in a list of vectors without searching the list. The 
list consists of all the combinations of n consecutive digits taken 
d at a time. Min is the smallest of the n integers. Each vector 
(combination) is written in ascending order from left to right, 
as, for example, 378 and the vectors are listed lexicographically, 
by which is meant, that, considered as d digit numbers, the 
vectors are listed in ascending order. For example, with min = 1, 
d = 3, and n = 6, the vectors in order are 123, 124, 125, 126, 134, 
135, ..., 456. Given the vector, v = 356, the procedure locates 
this vector as the 19th in the list; 

begin. integer 7, 7, maz, part, whole; 
ri= 1; v (0) := min —1; max := min — 147; 
for 7 := 0 step | until c—1 do 
begin part := c —i—1; 

ask: if v[z+1] — v[¢] > 1 then 
begin whole := maz — v[t] — 1; 
r := r + combinatorial (whole, part); 


oft] := oft] + 1; 
go to ask 
end; 
end; 
locate := 7 
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ALGORITHM 152 

NEXCOM 

JOHN HopLrey 

Peat, Marwick, Mitchell & Co., London, England 


procedure nezcom (char, N, setcomplete, nullvector); 

array char; integer N; 

label setcomplete, nullvector; 

comment char is a column vector containing N elements each of 
which is eithér 1 or 0. Nexcom transforms char into another 
vector containing the same number of 1’s and 0’s, but in a differ- 
ent sequence. Starting with char in the state of having 1 in each of 
the element positions 1, ..., 7 and zeros elsewhere then repeated 
application of nexcom generates all "Cr patterns of char. The 
procedure terminates if the presented vector char has | in each 
of the positions N, N—1, ... N—r-+1 and zeros elsewhere. Termi- 
nation is indicated by exit through the formal label ‘setcomplete’. 
If char is the null vector then procedure exists through the 
formal label ‘nullvector’; 

begin integer n, p, ™; 

comment find the first 1 in char; 

for n := 1 step 1 until N do if 

char {n] = 1 then goto A; 

go to nullvector; 

comment how many adjacent 1’s; 

A: p:=0; 

for m := n+ 1 step | until N do 

if char [m] = 1 then p := p+ 1 else goto B; 

comment Have all combinations been generated; 

B: ifp +n = N then go to seicomplete; 

comment Set up next combination; char[n+p-+1] := 1; 

for m := n+ pstep — 1 until n do char [m] := 0; 

for m := 1 step 1 until p do char [m] := 1; 

end nexcom; 
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ALGORITHM 153 

GOMORY 

F. L. Bauvrr 

Johannes Gutenberg-Universitaét, Mainz, Germany 


procedure Gomory (a, m,n) result: (a) exit: (no solution); 
value m,n; 
integer m,n; 
integer array Q; 
label no solution; 

comment Gomory algorithm for all-integer programming. The 
objective of this procedure is to determine the integer solution 
of a linear programming problem with integer coefficients only. 
The tableau-matrix a consists of m + 1 rows and n columns. 
The top row of a is the objective row, the last column represents 
the right-hand sides. The tableau-columns, with the exception 
of the last column, have to be lexicographically positive. The 
algorithm is finished if all entries in the last column, except the 
top most entry, are nonnegative. Then the top most entry of 
the last column represents the value of the objective function. 
The other entries of the last column define the coordinates of 
the optimal solution. There are always the same variables con- 
nected with the same rows. The exit no solution is used if a row 
is found which has a negative entry in the last column, but 
otherwise only nonnegative entries; 

begin integer 7, k, j, 1,1; 

real lambda; 
integer array ¢(l1:n—1], c[l:n]; 


1: for 1-:= 1 step 1 until m do if alt,n] < 0 then 
begin r := 1; go to 2 end; 
go to end; 

2: for k := 1 step 1 until n—1 do if a[r,k] < 0 then 
go to 4; 
go to no solution; 

4: l:=k; 


for j := k+1 step 1 until n—1 do if afr,j] < 0 then 
begin 7 := 0; 
3: if a[t,j] < ali,l] then 1 := j else 
if alt,j] = alz,l] then 
begin 7 := i1+1; go to 3 end 
end; 
for j := 1 step 1 until n—1 do if alr,j; < 0 then 
begin if a(0,/] + 0 then ¢[j] := entier(a[0,j]/a(0,/]) 
else t(j] := 1 
end; 
lambda := abs(a[r,1]/¢[1]); 
for j := 2 step 1 until n—1 do if a[r,j] < 0 then 
begin if abs(a[r,j]/tlj]) > lambda then 
lambda := abs(alr,j]/t{j]) end; 
for j := 1 step 1 until 7 do if j+/l then 
begin c[j] := entier(a[r,j]/lambda) ; 
if c{j] + 0 then 
for 7 := 0 step 1 until m do a[t,j] := alz,j] + clj] x 
alz,l] 
end; 
go tol; 
end: end; 
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CERTIFICATION OF ALGORITHM 153 
GOMORY [F. L. Bauer, Comm. ACM 6, Feb. 1963] 
B. Lerxowitz AND D. A. D’Esopro* 

Stanford Research Institute, Menlo Park, California . 


* Work supported by Office of Naval Research. 


GOMORY was hand-eoded in Bauaou for the Burroughs 220 


and in Fortran for the CDC 1604. The following corrections should 
be made: 


The statement 
lambda := abs(a[r,1]/é1]); 
should read 
lambda := abs(a[r,l}/tl]); 
The statement 
for j := 2 step 1 until n—1 do if a[r,j] < 0 then 
should read 
for j := 1 step | until n—1 do if a[r,j] < 0 then 
The following changes to Bauer’s program were made to in- 


crease its efficiency and reduce storage requirements. 


Change the statement 
begin integer 7,k,j,1,7; 
to read 
begin integer 7,k,j,1,7,c¢,t; 
Change the statement 
real lambda; 
to read 
real lambda, lambd; 
Delete the statement 
integer array ¢{1: n—1], cll: n]; 
Before the statement 
for j := 1 step 1 until n—1 do if a[r,j] < 0 then 
insert the statement 
lambda := 1.0; 
Change the statement 
begin if a[0,l] + 0 then ¢j] := entier(al0,7]/a(0,1]) 
to read 
begin if a[0,/] + 0 then ¢ := entier(al0,j]/a{0,1]) 
Change the statement 


else ¢[j] := 1 
to read 
else ¢ := 1 
After the statement 
else i[j] := 1 
insert the statements 
lambd := —alr,j]/t; 


lambda := if lambda < lambd then lambd else lambda; 
Delete the statements starting with 
lambda := abs (alr,1)/¢{1]); 
up to and including 
lambda := abs (alr,j]/tlj]) end; 
Change the statement 
begin clj] := entier (alr, j]/lambda); 
to read 
begin c := entier(alr,j]/lambda) ; 
Change the statement 
if clj] ¥ 0 then 
to read 
if c + 0 then 
Change the statement 
for 7 := 0 step 1 until m do alz,j] := alz,j] + clj] < 
to read 
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for 7 := U step | until m do ali,j| := ali,j] + ¢ X 
The ‘‘tie-breaking’’ procedure embodied in the three state- 
ments beginning at 


3: if alz,j] < ali,l] then 1 := j else 


will fail if the two columns being compared are identical. Although 
this cannot happen on the first iteration, it may occur later. To 


test for this condition change the two statements beginning with 
begin? :=i+1; goto3 end 


to read 
begin? := i+ 1; if 7 > m then go to 31 else go to 3 end; 
31: end; 

The revised algorithm yielded satisfactory answers on a ten 
equation-seven variable problem in 159 iterations and a 35-equa- 
tion 14-variable problem in 447 iterations. 

The following comments may be helpful for preparing a problem 
for GOMORY. The problem constraints must be stated in the 
form: 


Dui Gijts + 8; = db; 


where the s; are slack variables. The columns representing these 
slack variables need not appear in the initial tableau-matrix a. 

Since the only variables in the solution that will necessarily be 
non-negative are the s; , any non-negativity constraints on the 
other variables must be among the above equations (e.g. the con- 
straint z; & 0 is represented by —2x; +s, = 0). 

The size of the integers in the b vector substantially affects the 
number of iterations. 

The requirement that all but the last tableau-columns be lexi- 
cographically positive means that the first nonzero element in 
these columns must be positive. 


Epitor’s Note: Prof. Bauer wishes to indicate that for the 
Algorithm 153, GOMORY, credit is due to Ch. Witzgall, who 
wrote the draft. 
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ALGORITHM 154 

COMBINATION IN LEXICOGRAPHICAL ORDER 
CHARLES J. Mirsup 

Armour Research Foundation, ECAC Annapolis, Md. 


procedure COMB! (n,r,J); integer n, r; integer array I; 
comment The distinct combinations of the first n integers 
taken r at a time are generated in J in lexicographical order 
starting with an initial combination of the r integers 1, 2, --- , 
r. Each call of the procedure, after the first, must have in I 
the previous generated combination. The Boolean variable 
jirst is nonlocal to COMBI and must be true before the first call. 
Thereafter first remains false until all combinations have been 
generated. When calling COMB1 with J containing n — r +-1, 
n—r+2,--+-,n, lis left unchanged and first is set true; 
begin integer s, j; 
if first then begin for j := 1 step 1 until r do 
T[j] := 3; 
first := false; go to EXIT end; 
begin if I[r] < x then begin J[r] := I[r] + 1; go to EXIT 
end; 
for j := r step —1 until 2 do 
if [[j-l] <n —r+j-—1 then 
begin J{j—1] := Jj-—1] + 1; 
for s := j step 1 until r do 
l{[s] := Ijj-1] +8—- G-1); go to EXIT end end; 
jirst := true; 
EXIT : end 


CERTIFICATION OF ALGORITHM 154 
COMBINATION IN LEXICOGRAPHICAL ORDER 
[Charles J. Mifsund, Comm. ACM, Mar. 1963] 

K. M. BoswortH 

I.C.T. Ltd., Hayes, Middlesex, England 


This procedure was tested 
for r := 1 step 1 until n with n = 6 


with correct results. 
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ALGORITHM 155 

COMBINATION IN ANY ORDER 

Cuar.es J. Mirsup 

Armour Research Foundation, ECAC Annapolis, Md. 


procedure COMB2 (m,M,n,r,s,S,TOTAL); integer array ™, 
M,S; integer n, r, s, TOTAL; 
comment Each call of COMB2 generates a distinct combina- 
tion S, (if possible) of the n integer values of J taken 7 (r>1) 
at a time if J consists of m[i] integers each equal to M[1], and 
m[2] integers each equal to M[2], and so on, there being s integers 
available. TOTAL must be set to zero before the first call of 
COMB2 and thereafter TOTAL is increased by one after each 
new combination is generated. To speed up the machine opera- 
tion arrange the s integers in M such that m[1] = m[2] = --- = 
m/s]; 
begin integer 7, 7,/,p; own integer array J[1:n], [[l:r]; own 
Boolean first; 
if TOTAL = 0 then begin 
t:= 1; p := 0; 
for 7 := 1 step 1 until s do 
begin p := p + mij]; 
for 7 := istep 1 until p do 
begin J[t] := M{[j]; 
t:=¢-+ 1 end end; 
jirst := true end; 
1: COMBI (n,7,D; 
if first then go to EXIT; 
if J{1] = 1 then go to 2 else go to 3; 
2: for j := 2 step 1 until r do 
if VU =JU]—-1) A Ui]>Zi-1]+1) then go to 1; 
go to 4; 
3: if J{Z[1]] = J[Z[1]—1] then go to 1 else go to 2; 
4: for j := 1 step 1 until r do 
S[j] := JU); 
TOTAL := TOTAL +1; 
EXIT: end 


CERTIFICATION OF ALGORITHM 155 
COMBINATION IN ANY ORDER [Charles J. Mifsud, 
Comm. ACM, Mar. 1963} 

K. M. Boswortu 

L.C.T. Ltd., Hayes, Middlesex, England 


This procedure was tested using 
ml] = 4 m2] =3 m3] = 2 ml4] = 2 
Mii] =4 M[2]=7 M([3] =9 MI[4] = 16 


and for r := 1 step 1 until s 

It is correctly generated for r = 1 the four combinations 4, 7, 9, 
16, as well as the ten combinations for r = 2, the eighteen com- 
binations for r = 3, and the twenty-six combinations for r = 4. 

Changes made due to compiler limitations were (i) systematic 
changes of upper case letters where there was conflict due to having 
only one case of letters, (ii) transfer of own declared variables to 
non-local variables, and (iii) integer labels to identifiers. 
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ALGORITHM 156 

ALGEBRA OF SETS 

CHARLES J. Mirsup 

Armour Research Foundation, ECAC Annapolis, Md. 


procedure INOUT (A,n,SUM); real array A; integer n; 
real SUM; 
comment SUM = >), Ai — >>2 AiA; + Dos AvAjAg — eek 
A1A;z --- A, is formed where the symbols 51, )2, Do3, °** - 
>don-1 stand for summation of the possible combinations of the 
numbers A;, Az, -:: , An taken one, two, three, --- , (n—1) 
at a time; = 
begin real j, part, T; integer i, 7; integer array I[l:n]; 
Boolean first; 
r:= SUM :=0; j:= — 1; 
B: first := true; r:=r+1; part := 0; 
A: COMBI (n,r,J); 
if first then begin j := —1 Xj; part := 7 X part; 
SUM := SUM + part; 
if r <n then go to B else go to EXIT end; 


T := 1; 
for 1 := 1 step 1 until r do 
T := A[l{i]] x T; 
port := part + T; goto A; 
EXIT: end 


CERTIFICATION OF ALGORITHM 156 

ALGEBRA OF SETS [Charles J. Mifsud, Comm. ACM, 
Mar. 1963] 

Ix. M. Boswortu 

1.C.T. Ltd., Hayes, Middlesex; England 


One correction required in this procedure is the systematic 
change of label A to avoid conflict with the formal parameter 
array A, 

The procedure was then tested for n = 9 and Ai = tz, @=1, 

- ,”, producing the correct answer SUM = 1. 

Two other tests with arbitrary values of Ai and n = 4 were also 
correct. 
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ALGORITHM 157 

FOURIER SERIES APPROXIMATION 

CuHarRLes J. Mirsup 

Armour Research Foundation, ECAC Annapolis, Md. 


procedure FOURIER (N,f,a,b);. realarrayf,a,b; integer N; 
comment Fourier determines 2N +1 constants a, (p=0,1,---,N), 
by (p=1,2,---,N) in such a way that the equations f, = 1/2a. + 
>. 7-1 (Gp cos 2enp/(2N-+1) + bp sin 2enp/(2N+1)) are satisfied, 
where the f, are given numbers. The f, may be thought of as the 
2N +1 values of a function f(z) at the points rz, = 2rn/(2N-+1). 
The method used to generate a,, bp was formulated by G. 
Goertzel in ‘Mathematical Methods for Digital Computers” 
(John Wiley and Sons, Inc., 1960); 
begin real array S, C[1:2], u[0:2]; 
integer 7p, 1; 
pt := 3.14159265; C[2] := 1; S[2] := 0; 
C[1] := cos(2X pi/(2KN+1)); 
S[l] := sin(2X pt/(2XN+1)); 
for p := 0 step 1 until N do 
begin u[l] := u[2] := 0; 
for 1 := 2 X N step —1 until 1 do 
begin u/[0] := f[i] + 2 X C[2] x ull] — u[2]; 
u{2} := ull]; wufl] := ulO0jend; 
a[p] := 2/(22XN+1) X (f[0]+u[1]x C[2]—u[2)); 
b[p] := 2/(2XN+1) X ull] x S[2]; 
TEMP := Cf] X C[2] — S{l] x S[2I; 
S[2] := C[1] X S[2] + S[l] x C[2]; 
C{2] := TEMP end end 


real TEMP, pi; 


REMARK ON ALGORITHM 157 

FOURIER SERIES APPROXIMATION [C. J. Mifsud, 
Comm ACM, Mar. 1963] 

RiIcHARD GEORGE* 

Argonne National Laboratory, Argonne, III. 


This algorithm was written in FAP language for the 32-K IBM 
704. It was tested on a sawtooth curve, and the sawtooth was 
recreated by summing the expansion up through the 2N + 1 con- 
stants, with excellent results. 


* Work supported by the United States Atomic Energy Commission. 

The arrays S, C and wu are never referenced with a variable 
subscript. For a saving of time, I suggest that simple variables 
be used instead. 

By declaring one additional real variable, one can bring the 
phrase 


2/(2X N +1) 


outside of the for loops, because N does not change through the 
procedure. This results in a saving of 4N+2 mult-ops. 
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REMARK ON ALGORITHM 157 

FOURIER SERIES APPROXIMATION [Charles J. 
Mifsud, Comm. ACM, Mar. 1963] 

GrorcE R. ScHUBERT* 

University of Dayton, Dayton, Ohio 


* Undergraduate research project, Computer Science Program, Univ. of 
Dayton. 


Algorithm 157 has been modified to fit 2N data points and has 
run successfully on the Burroughs 220 using Baueou. With the 
modifications, 2N constants a, (p=0, 1, --- , N) and bp 
(p=1, 2, --- , N-—1) are determined such that the equation 
fn = Q/2 + Donat (ap cos mnp/N+b, sin rnp/N) + an/2 cos mn 
is satisfied. 

In the modified procedure, the second and third lines after the 
integer declaration should read: 

C{1)] := cos (pi/N); 

S[1] := sin (pi/N); 

The second for statement should read: 

for 7 := 2 X N-1 step —1 until 1 do 

The lines containing the a and 6 coefficients should read: 

a{p] := (f(O]+u[l]xC[2]—u[2])/N; 

b[p] := (u[1]XS[2])/N; 

REFERENCE: R. W. Hamming, Numerical Methods for Scientists 
and Engineers, pp. 68-73 (McGraw-Hill, 1962). 
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ALGORITHM 158 (ALGORITHM 134, REVISED) 

EXPONENTIATION OF SERIES 

Henry E. Ferris 

Aeronautical Research Laboratories, Wright-Patterson 
Air Force Base, Ohio 


procedure SERIESPWR (A,B,P,N); value A, P, N; 
array A, B; integer N; 
comment This procedure calculates the first N coefficients 
Bit] of the series g(z) = f(x) 7 P given the first N coefficients 
of the series 


fz) =1+ > Ali] Xai 


P may be any real number. Setting P := 0 gives the coefficients 
for LN (g(z)); 
begin integer 7, k; 
real P, 8; 
if P = 0 then Bi] = A[l]; 
else Bil] := PX All]; 
for 7 := 2step 1 until N do 
begin S := 0; 
for k := 1 step 1 until i — ldo 
S := S+ (PX(N—k)—k) X Blk] X A[N—k]; 
Bit] := PX Afi] + (G/2) 
end for 7; 
end SERIESPWR 


(¢=1,2,—,-,N). 


CERTIFICATION OF ALGORITHM 158 
EXPONENTIATION OF SERIES [H. E. Fettis, Comm. 
ACM, Mar. 1963] 

J. DENNIS LAWRENCE 

Lawrence Radiation Laboratory, Livermore, Calif. 


This procedure was translated into ForTRAN and run on the 
Remington-Rand Larc Computer. Three changes are necessary. 
(1) The last line of the comment should read 
for the natural logarithm of f(z); 
(2) The third line from the end should read 


S := S+(PX (i—k)—k) XBlk]X Alt—k]; 


(This line was given correctly in algorithm 134.) 
(3) The second line from the end apparently should read 


Bit] := Afi] := (Sf); 


for the case P = 0 only. Probably the best way to incorporate 
this is by making two changes: 

(a) Change the if clause to read 

if P =OthenR := lelse R := P; Bil] := RF X Af]; 

(b) Change the second line from the end to read 


Bhi] := RX Afi] + S/); 


A large number of examples were run quite successfully; the 
following give representative samples. 

(1) (1-+2¢-+32?-+0.52°)? = 1+442-+100?+-132°+ 11at+325+-0.2508 
(using A[4] := A[5] := A[6] := 0). 

(2) Setting P := 1 gives Bij] := Alt]. 


(3) Let f(z) =e =14+>5 


tml %* 
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Then g(z) = 27 =1+ >> — x*. (See Table 1.) 


(4) Let f(x)=e” and P=—1. Then g(x)=e-*. For P=0, ap- 
parently the constant term of g(z).should be zero instead of one. 


SCO CON OO WD = 


— 


tml 


TABLE 1 


A[t] 


1.000000000 . 


0 .500000000 
0. 166666667 
0.041666667 
0..008333333 
0.001388889 
0.000198413 
0.000024802 
0.000002756 
0.000000276 


Bit) 


0.693147181 
0. 240226507 
0.055504109 
0.009618129 
0.001333356 
0.000154035 
0.000015253 
0.000001322 
0.000000102 
0 .000000007 


(5) Let f(z) =e? and P=0. Then g(x) =z. 


0 


1 
a x‘ and let P = In2 = .693147181. 


(6) Let f(z) = 3 z*and P=0. Then g(z)=In(1—2") —In(1—z) = 


im 


n 1 
>> = 2%. (See Table 2.) 


tml 
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TABLE 2 


Ali] 


eee 
qooococoocoooococoeoonc & 


Ble] 


1 .000000000 
0.500000000 
0.333333340 
0. 250000000 
0. 200000000 
0. 166666670 
0.142857140 
0.125000000 
0.111111110 
0. 100000000 
0.090909100 
0.083333330 
0.076923080 
0.071428580 
0.066666660 
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CERTIFICATION OF ALGORITHMS 134 AND 158 

EXPONENTIATION OF SERIES [Henry E. Fettis, 
Comm. ACM, Oct. 1962 and Mar. 1963] 

Henry C. THACHER, JR. 


Reactor Engineering Div., Argonne National Laboratory 
Argonne, Ill. 
Work supported by the U.S. Atomic Energy Commission. 


The bodies of SERIESPWR were transcribed for the Dart- 
mouth ScauP processor for the LGP-30 computer. In addition to 
the modifications required by the limitations of this translator, 
the following corrections were necessary: 

1. Add ‘‘real P;” to the specifications. 

2. Delete ‘‘p,”’ from the declarations in the procedure body. 

3. (134 only) Replace ‘‘S’”’ by ‘‘s’’ and [t—] by ‘‘(i—k)’’ in the 

statement S:= s+ ---. 

4. (158 only) Changes last sentence of comment to ‘Setting 
P := 0 gives the coefficients for In({(x)). In this series, the 
constant term is 0, instead of 1 as elsewhere;”’ 

. (158 only) Add the identifier P2 to the declared real variables. 

6. (158 only) Make the first statements read: 

‘af P = 0 then P2 := 1 else P2 := P; 
Bil] := P2x A[l]; 
7. (158 only) Make the statement of the for k loop read 


or 


“S i= S+(PX(t—k)—k) X Blk] X Alt—k];” 
8. Change the last statement to 
“Bit] := P2 x Alt] + S/t end for 1; 


In addition, the following modifications would improve the 

efficiency of the program: 

1. Remove A from the value list. 

2. Omit the statement B[l]:= P x A[1]; (P2xA[l] in 158 
according to correction 6) and change the initial value of 7 
in the statement following from 2 to 1. 

When these changes were made, both procedures produced the 
first ten coefficients of the series for (exp(x)) tT 2.5 from the first 
ten coefficients of the exponential series. The procedures were 
also used to generate the binomial coefficients by applying them 
to (l+z)?, for P = 2.0, and 0.5000000. Algorithm 158 was also 
tested with P := 0 for 1+z and for the series expansions for 
(sin x)/x, cos x, and exp x. In all cases, the coefficients agreed 
with known values within roundoff. 
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ALGORITHM 159 

DETERMINANT 

Davin W. Diesy 

Oregon State University, Corvallis, Ore. 


real procedure Determinant (X,n); 
valuen; integern; array X; 
comment Determinant calculates the determinant of the n-by- 
n square matrix X, using the combinatorial definition of the 
determinant. This algorithm is intended as an example of a 
recursive procedure which is somewhat less trivial than Factorial 
(Algorithm 33); 
begin real D; integer 7; Boolean array B[1:n]; 
procedure Thread (P,¢,7); 
value P,e,7; real P; integer e, 7; 
if7 > nthen D:= D+ PX (-1) f e elseif P 4 0 then 
begin integer j, f; 
f := 0; 
for j := n step —1 until 1 do 
if Blj] then f := f + 1 else 


begin 
Bij] := true; 
Thread (PXX{i,jet+fi+); 
Bij] := false; 


end of loop; 
end of Thread; 
for 1 := 1 step 1 until n do 
Bit] := false; 

D :=0; 

Thread (1,0,1); 

Determinant := D; 
end Determinant; _ 


CERTIFICATION OF ALGORITHM 159 

DETERMINANT [David W. Digby, Comm. ACM, 
March 1963] 

ARNOLD LAPIDUS 


Courant Institute of Mathematical Sciences, New York 
University, New York, N. Y. 


Algorithm 159 was translated into Forrran II for the IBM 
7090 as part of a test of ForTRAN subroutines designed to facilitate 
the implementation of recursive procedures. As expected, the 
numerical results were poor. For the Hilbert matrices H, = (aij), 
aij = 1/(¢+j—1), results were as follows: 


Det Hy, (computed by 


n Det Hn (true) Algorithm 159) 

2 8.333 333 3 (— 2) 8.333 3383 2 (— 2) 
3 4.629 629 6 (— 4) 4.629 623 1 (-— 4) 
4 1.653 4389 2 (— 7) 1.651 9383 4 (— 7) 
5 3.749 295 1 (—12) —2.910 383 0 (—11) 


Determinants of order 4 and 6 with integer elements were also 
evaluated. The algorithm gave full accuracy for these. 
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ALGORITHM 160 
COMBINATORIAL OF M THINGS 
TAKEN N AT A TIME 
M. L. Wourson anp H. V. Wricut 
United States Steel Corp., Monroeville, Penn. 
integer procedure combination (m,n); 
value n; integer m,n; 
comment calculates the uumber of combinations of m things 
taken n at a time. If n is less than half of m, then the program 
calculates the combinations of m things taken m — n at a time 
which is the exact equivalent of m things taken n at a time; 
begin integer p, 7, 7; 
pi=m—N; 
ifn < p then begin p:=7; n:=m-— pend; 
if p = 0 then begins := 1; go to exit end; 
ri=n-+1; 
for 1 := 2 step 1 until p dor := (r & (n+7))/2; 
exit: combination := r 
end combination 


CERTIFICATION OF ALGORITHM. 160 
COMBINATORIAL OF M THINGS TAKEN WN AT 
A TIME [M. L. Wolfson and H. V. Wright, Comm. ACM, 
Apr. 1963] 
Deirri THOoRO 
San Jose State College, San Jose, Calif. 

Algorithm: 160 was translated into Fortran IL and Forco for 


the IBM 1620. Correct results were obtained for values of m up to 
20. 


CERTIFICATION OF ALGORITHM 160 

COMBINATORIAL OF M THINGS TAKEN N AT 
A TIME [M. L. Wolfson and H. V. Wright, Comm. 
ACM, April 1963] 

Rosert F, BLAKELY 

Indiana Geological Survey, Bloomington, Ind. 


Algorithm 160 was translated into ALGo, a compiler for the 
Control Data Corp. G-15 computer (formerly the Bendix G-15). 

With the restriction that m 2 n 2 0, correct results were ob- 
tained for all integer values of m and n, where 0 S m S 10. Several 
other values were tested and all results were correct. 
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ALGORITHM 161 

COMBINATORIAL OF M THINGS 

TAKEN ONE AT A TIME, TWO AT A TIME, 

UP TO N AT A TIME 

H. V. Wriaut anp M. L. WoLFson 

United States Steel Corp., Monroeville, Penn. 

procedure combination vector (m,n, v); 

integer m,n; integer array v; 

comment calculates all combinations of m things taken from 1 
to n at a time. The result is a vector, v, within which the first 
element is the combination of m things taken 1 at a time, the 
second element is the combinations of m things taken 2 at a time, 
the third element taken 3 at a time, ::-, and the nth element 
taken n at a time. 

begin integer 7; 
ofl] := m; 
for 71 := 2 step 1 until n do 

oft] = (of¢—1] K (m—i+1))/2; 


end combination vector 


CERTIFICATION OF ALGORITHM 161 
COMBINATORIAL OF M THINGS TAKEN ONE AT 
A TIME, TWO AT A TIME, UP TO N AT A TIME 
[H. V. Wright and M. L. Wolfson, Comm. ACM, Apr. 
1963] 
Deitri THORO 
San Jose State College, San Jose, Calif. 

Algorithm 161 was translated into Fortran II and Foreo for 


the IBM 1620. Correct results were obtained for values of m up 
to 20. 


SERTIFICATION OF ALGORITHM 161 
COMBINATORIAL OF M THINGS TAKEN ONE AT 
A TIME, TWO AT A TIME, UP TO N AT A TIME 
[H. V. Wright and M. L. Wolfson, Comm. ACM, 
Apr. 1963] 
Davip H. CoLuins 
Indiana Geological Survey, Bloomington, Ind. 
Algorithm 161 was translated into ALGo, a compiler for the 
Control Data Corp. G-15 computer (formerly the Bendix G-15). 
With the restriction that m 2 n 2 1, correct results were ob-— 
tained for all integer values of m and n, where 1 S$ m= n S 15. 
Several other values were tested (including cases where m ¥ n) 
and all results were correct. 
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ALGORITHM 162 

XYMOVE PLOTTING 

FreD G. STOCKTON 

Shell Development Co., Emeryville, Calif. 

procedure zymove (XZ, YZ, XN, YN); value XZ, YZ,XN,YN; 

integer XZ, YZ, XN, YN; 

comment symove computes the code string required to move the 
pen of a digital incremental X,Y-plotter from an initial point 
(XZ, YZ) toa terminal point (XN, YN) by the ‘‘best’”’ approxi- 
mation to the straight line between the points. The permitted 
elemental pen movement is to an adjacent point in a plane 
Cartesian point lattice, diagonal moves permitted. The eight 
permitted pen movements are coded 


L=+Y, Qm4X+Y, 3=4X, 42 
5=-—Y, 6=~-—X-Y, 7=—-X, 8 


+X—Y, 
_-X+Y. 


The approximation is “‘best’’ in the sense that each point tra- 
versed is at least as near the true line as the other candidate 
point for the same move. 
xymove does not use multiplication or division.; 

begin integer A, B, D, E, F, T, I, move; 

comment code (J) is a procedure which returns a value of code 
according to the following table: 


J 12 3 4 5 6 7 8 
code 1 2 3 2 3 4 5 4 
J 9 10 11 12 13 14 15 16 
code 5 6 7 6 7 8 1 8 


plot (move) is a procedure which sends move to the plotter as a 
plotter command.; 
if XZ = XN A YZ = YN then go to return; 
A:i=XN-—XZ; B:=YN—YZ; D:=A+B; T:= 
B-— A; I:=0: 
if B = Othen/ := 2; 
if D 2 then] := 1+ 2; 


if 7 > Othen]:=[+2; 
if A 2 Othen/:= 8 — lelse]:= 1+ 10; 
A:=abs(A); B:=abs(B); F:= A+B; D:=B-—A; 
if D 2 Othen begin T:= A; D:= —Dendelse 7 := B; 
H:=0; 
repeat: A:= D+ EH; B:=T+E+4; 
if B 2 0 then begin E := A; move := code(I); 
F := F — 2end 
else begin EH := E+ T7; F:=F —1; 
move := code(I—1) end; 
plot(move) ; 
if F > 0 then go to repeat; 
return: 


end 
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CERTIFICATION OF ALGORITHM 162 

XYMOVE PLOTTING [Fred G. Stockton, Comm. ACM, 
Apr. 1963] 

Witiiam E. FLeTcuer 

Bolt, Beranek and Newman Inc., Los Angeles, Calif. 


The line in the body of the procedure which read: 
if D2 then] := 1+ 2; 
was corrected to read: 
if D 2 Othen J := I + 2; 


With this one change the body of the procedure was trans- 
literated into DECAL-BBN and successfully run on a PDP-1 
computer utilizing the cathode ray tube output to display the 
path of a simulated digital incremental plotter. 


REMARK ON ALGORITHM 162 [J6] 

XYMOVE PLOTTING [F. G. Stockton, Comm. ACM 6 
(Apr. 1963), 161; 6 (Aug. 1963), 450] 

D. K. Cavin (Recd. 10 Feb. 1964) 

Oak Ridge National Laboratory, Oak Ridge, Tenn. 
The following modifications were made to Algorithm 162 to 


decrease the average execution time. The last nine lines of Al- 
gorithm 162 are replaced by the following: 


move := code(I—1); I := code(J); 
repeat: A:= D+E;B:=T+E+A; 
if B = 0 then begin E := A; F := F — 2; plot(I) end 
else begin E := E+ 7; F := F — 1; plot(move) end; 
if F > 0 then go to repeat; 
return: 
end 


It is obvious that on any movement containing more than two 
elemental pen movements the use of the code procedure in the 
loop is redundant, since no more than two of the eight permitted 
pen movements are necessary for the approximation of any line. 
Therefore moving the call of the code procedure outside of the 
basic loop reduces the execution time whenever the X, Y move- 
ment requires more than two elemental pen movements. The 
procedures were coded in CODAP, the assembly language for 
the CDC 1604-A, and this modified version was approximately 
40 percent faster in the loop than the original version. The timing 
comparisons used numbers in the range — 2000 to 2000 with heavy 
emphasis on the subrange —150 to 150. The typographical error 
noted in the certification (Comm. ACM, August 1963) was cor- 
rected in both codes. 

{A referee verifies that Algorithm 162 does indeed run, as 
changed.—G.E.F.] 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 163 

MODIFIED HANKEL FUNCTION 

Henry E. Ferris 

Aeronautical Research Laboratories, 
Air Force Base, Ohio 

procedure EXPK (P,X,£E); real P, X, E; 

comment this procedure calculates the modified Hankel Func- 


tion e*K,(x) to within a given accuracy E from the integral 
representation: 


cy 
e*K,(x) = i er(l-cosh cosh (pt)dt; 
0 


begin real F,G,H,R,S,T,U,Y,Z,ZP; 
R:= 0.0; 
A := 1.0; 
iteration: begin 


Wright-Patterson 


integration: begin 
Y:= XX (-—.5x (Z4+1/Z)); 
if P = 0 then ZP := 1 
else ZP := Z Tf P; 
F:= 6X exp(Y) X (Z4P+1/ZP); 
S:=S+F; 
:= ZX U; 
end; 
if F 2 E then go to integration 
else R:= HXS; 
HA:= 5X 4H; 
end; 
if abs (R-—G) 2 E then go to Zteration 
else EXPK:=R 
end EXPK 


SERTIFICATION OF ALGORITHM 163 
MODIFIED HANKEL FUNCTION [Henry E. Fettis, 
Comm. ACM, Apr. 1963] 

Henry C. Tuacuer, Jr.* 

Argonne National Laboratory, Argonne, Il. 


Since this algorithm is a function declaration, the procedure 
declaration should be: 


real procedure EX PK (D, X, E); 


Otherwise, no syntactical errors were noticed. 

The body of the procedure was translated and run on the 
LGP-30 computer, using the Dartmouth Scaup system. Results for 
E = 0.0001, X = 0.10.1)1.0, P = 0, 0.3333333, 0.6666667 and 
1.000000 agreed with values tabulated in Jahnke-Emde-Losch to 
the 3-4D given in the tables, except for errors discovered in the 
table of 2/rKo)3(z). 

With X = 0, the program ended in floating-point overflow. The 
algorithm itself, or the call of the procedure, should include a test 
to insure that the variable is greater than eps, where eps is chosen 
to prevent exceeding machine capacity. 
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The algorithm was found to be excessively slow. Times on the 
LGP-30 were of the order of 6 minutes. A considerable saving in 
time could be realized by improving the quadrature formula, cur- 
rently the simple midpoint formula, repeated completely for 
each iteration. A more effective method would be a modified 
Romberg: algorithm. A procedure based on the latter approach is 
being developed in this division. 


* Work supported by the U. 8S. Atomic Energy Commission. 
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ALGORITHM 164 

ORTHOGONAL POLYNOMIAL LEAST SQUARES 
SURFACE FIT 

R. E. Cuarx, R. N. Kusix, L. P. PHmurps 

The Babcock & Wilcox Co., Atomic Energy Div., 
Lynchburg, Va. 


procedure surfacefit (x, u, y, w, 2, nmax, mmax, imax, jmaz) 
result: (bela, phi, zcomp, minsqd, minsgqdcomp, sumdifcomp, 
moxdifcomp) ; 

real array x, u, y, W, 2, phi, beta, zcomp; 

integer nmaz, mmax, imax, jmax; 

real minsqd, minsqdcomp, sumdifcomp, maxdifcomp; 

comment this is a transliteration of an operating program writ- 
ten in Burroughs AuGou for the B-220. It fits, in the least squares 
sense, a polynomial function of two independent variables to 
values of a dependent variable specified at points on a rectangu- 
lar grid in the plane of the independent variables. The use of 
orthogonal polynomials leads to a particularly simple system of 
linear equations rather than the ill-conditioned system which 
arises from the usual normal equations. It also provides a meas- 
ure of the improvements resulting from each new term included 
which further leads, in this algorithm, to an automatic selection 
of a ‘“‘best’’ degree polynomial function as determined by 
Gauss’ criterion. The initial normalization of the variables re- 
sults in significant reduction of round. off errors in many cases. 
This algorithm is developed more fully in BAW-182. For a very 
similar approach to this and related problems see Cadwell, 
J. H., ‘Least Squares Surface Fitting Program’’, The Computer 
J.3 (1961), 266 and Cadwell, J. H., and Williams, D. E., ‘‘Some 
Orthogonal Methods of Curve and Surface Fitting,’’ The Com- 
puter J. 4 (1961), 260. A further reference is Gauss, C. F., ‘‘Theo- 
ria Combinationis Observationum Erroribus Minimis Obnoxial,’’ 
Gauss Werke 4 (Gottingen 1873), 3-93. z[z] and y[j] are the inde- 
pendent variables, z[z, j] is the dependent variable. w/z] and 
w{[j] represent the weights corresponding to z[i] and y[j], re- 
spectively. nmaz is one more than the maximum degree of z to be 
considered. mmaz is one more than the maximum degree of y to 
be considered. imaz is the number of z’s, and jmaz is the number 
of y's. beta[n, m] is a measure of the improvement resulting 
from the inclusion of the z*y™th term. phi[n, m] is the poly- 
nomial coefficient for the z*y™th term. Note the degree of the 
resulting polynomial may be less than the maximum degree 
specified as a result of the application of Gauss’ criterion. 
zcomp is the computed dependent variable. 


> uli)-w (s]-z (e, 7? — >> beta =) 


. aj 
minsqd = : : 
imax -jmax 
D ult] - wg] (ale, 7] — zcompli, 7)? \"? 
minsqdcomp = \ “~———___________— 
imaz -jmax 
2. | ali, j] — zcompli, 71 | 
sumdifeomp = ~——_—____—_—__ 
imax -jmax 
maxdifcomp = maz | z(t, 7) — zeomp((i, 7) | 
minsqd and minsqdcomp are equal if computation is exact. In 
practice they will not be equal due to the imprecise nature of 
calculation. A wide discrepancy indicates excessive errors in 
calculation; 
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begin 

real array a, b, denpa{l:nmazl, c, d, denga[1:mmaz}, 
alpha{l:nmaz, 1:mmaza], p[l:nmaz, 1:imaal, g[limmaz, 1:jmaz]}, 
pe[l:nmaz, 1:nmaz], qce[l:mmazx, 1:mmaz); 

integer 7, m,1,j7,8,1t,7; 

real sumx, sumy, sumz, meanz, meany, meanz, numa, dena, denb, 
nume, denc, dend, alph, sumzsq, gausscrit, trialgausscrit, betasum, 
rescomp, poly; 

comment normalization of variables;, 


sumz >= sumy >= sumz := 0.0; 

for 7 := 1 step 1 until 7maz do 
sumz += suma + 2f{t]; 

meanz += sumaz/imaz; 

for i := 1 step 1 until imax do 
zt] := 2z[i] — meanz; 

for j := 1 step 1 until jmazr do 
sumy >= sumy + yj]; 

meany := sumy/jmax; 

for j := 1 step 1 until jmaz do 


y{j] = yly] — meany; 


for 1 := 1 step 1 until imaz do begin 
for j := 1 step 1 until jmaz do 
sumz := sumz + z{t,j] end; 
meanz := sumz/(imax XK jmazx); 
for 7 := 1 step 1 until imax do begin 
for j := 1 step 1 until jmaz do 
z(t, 7] := 2[¢, 3] — meanz end; 
comment evaluate orthogonal polynomials; 
numa := dena := 0.0; 
for 7 := 1 step 1 until imaz do begin 
pil, 71 = 1.0; 
numa i= numa + ult] X 2[Z]; 
dena := dena + ult] end; 
a(2] := numa/dena; 
for 71 := 1 step 1 until imaz do 


pl2, 7] >= at] — a2]; 
for n := 3 step 1 until nmaz do begin 
numa := dena := denb := 0.0; 
for i:= 1 step 1 until imaz do begin 
numa := numa + ult] X aft] & p[mn—1} TF 2; 
dena := dena + uli] X p[n—1, 7] T 2; 
denb := denb + uli] *K p[n—2, 7] Tf 2 end; 
a[n] := numa/dena; b[{n] := dena/denb; 
for i := 1 step 1 until imaz do 
pln, i] := (ali]—a[n}) X p[n—1, ¢] — bln) X plin—2, 1] end; 
nume := denc := 0.0; 
for j := 1 step 1 until jmaz do begin 
qfl, J] := 1.0; 
nume := nume + wij) X ys); 


denc := denc + w{j] end; 
c(2] : = numc/denc; 
for j := 1 step 1 until jmaz do 
q[2, J] == yj] — c[2]; 
for m := 3 step | until mmaz do begin 


nume := denc := dend := 0.0; 
for j := 1 step 1 until jmaz do begin 
nume := nume + wij] X yli] X g[m—1, 3] T 2; 
denc := denc + wfj] X gim—1, 3] T 2; 
dend := dend + wij] X q[m—2, j] T 2 end; 
c[m] := nume/denc; d{m] : = denc/dend; 
for j := 1 step 1 until jmaz do 
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alm, 3] := (yli]—clm]) X q{m—1, 5] — dim] X glm—2, j] end; 
comment evaluate contribution of each orthogonal polynomial 
to the minimization of the residuals; 
for n := 1 step 1 until nmaz do begin 
denpa[n] := 0.0; 
for 7 := 1 step 1 until imaz do 
denpa|n] := denpaln] + ult] X pin, 7] T 2 end; 
for m := 1 step 1 until mmaz do begin 
dengqa[m] := 0.0; . 
for j := 1 step 1 until jmaz do 
dengalm] := denga[m] + w{j] X q{m, j] T 2 end; 
for n := 1 step 1 until nmaz do begin 
for m := 1 step 1 until mmaz do begin 
alph := 0.0; 
for 7 := 1 step 1 until imax do begin 
for 7 := 1 step 1 until jmaz do 
alph := alph + ult] X wlj] X 2{t, 7] X pln, t] X gim, J] 
end; 
alpha(n, m] : = alph/(denpa[n]Xdenga[m)) ; 
beta[n, m] := alpha[n, m] X alph; end end; 
comment application of Gauss’ criterion to determine the de- 
gree polynomial which yields the closest fit to the given data. 
Gauss’ criterion is, strictly speaking, applicable only to cases 
where the weights u[i] and w[j] are unity; 


sumzsq >= 0.0; 
for 7 := 1 step 1 until imaz do begin 
for j := 1 step 1 until jmaz do 


sumzsq := sumzsq + ult] X wlj] & 2[t, j] T 2 end; 
gi=ti=1; 
for n := 1 step 1 until nmaz do begin 
betasum := 0.0; 
for m:= 1 step 1 until mmaz do begin 
for r := 1 step 1 until x do 
betasum := betasum + beial[r, m); 
if betasum > sumezsq then trialgausscrit : = 0.0 
else 
trialgausscrit := (sumzsq—betasum)/(imazX jmazx—nX™m); 
ifn = 1Am = 1 then gausscrit := trialgausscrit; 
if gausscrit = trialgausscrit then begin 
ifn X m<s X ¢t then begin 
si= Nn; 
t:= mend end; 
if gausscrit > trialgausscrit then begin 
gausscrit := trialgausscrit; 
si=n; 
t:= mend end end; 
nmax >= 8; 
mmax i= t; 
minsgqd := (gausscritX (imax X jmax—nmazX mmazx) / (imax X jmaz)) 
T 4 
comment evaluation of orthogonal polynomial coefficients; 
for n := 1 step 1 until nmaz do begin 
pe[n, m] := 1.0; 
for s := 1 step 1 until n — 1 do begin 
pe[n, 8) := —al[n] X pe[n—1, s]; 
if s ~ 1 then peln, s] := pe[n, s] + pe[n—1, s—1]; 
if s ~ n — 1 then pe[n, s] := pe[n, s] — b[n] K pc[n—2, 8] 
end end; 
for m := 1 step 1 until mmaz do begin 
qc{m, m] := 1.0; 
for t:= 1 step 1 until m — 1 do begin 
ge[m, t] := —c[m] X gel[m—1, #]; 
if ¢ + then gc[m, ¢t] := qce[m, t] + gce[{m—1, t—1]; 
if ¢ ~ m — 1 then ge[m, t] := ge[m, t] — d{m] X ge[m—2, t] 
end end; 
comment evaluation of approximating polynomial coefficients; 
for s := 1 step 1 until nmaz da begin 
for ¢:= 1 step 1 until mmaz do begin 
phi[s, t] : = 0.0; 
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for n := s step 1 until nmaz do begin 
for m := t step 1 until mmaz do 
phi{s, t] := phils, t] + alpha[n, m] X pe[n, s] X gelm, 2t] 
end end end; 
comment evaluation of dependent variables using the approxi- 
mating polynomial; 


minsqdcomp := sumdifcomp := maxidifcomp := 0.0; 
for 2 := 1 step 1 until imaz do begin 
for j := 1 step 1 until jmaz do begin 


zcomp|i, j] = 0.0; 
for s := nmaz step — 1 until 1 do begin 
poly := phi[s, mmaz]; 
for ¢: = mmazx — 1 step 1 until 1 do 
poly := poly X yli] + phils, t]; 
zcompl|i, j] : = zcompli, j] X xlt]-+ poly end; 
rescomp := z{|t, j] — zcomp|t, 3]; 
zcompl(i, j] = zcomp(t, j] + meanz; 
minsqdcomp := minsqdcomp + ult] X wij] X rescomp T 2; 
sumdifcomp.:= sumdifcomp + abs(rescomp) ; 
if abs (rescomp) > maxdifcomp then 
mazdifcomp := abs(rescomp) end end; 
minsqdcomp.: = .(minsqdcomp/(imax X jmax) ) 1 4; 
sumdifcomp := sumdifcomp/ (imax X jmazx); 
end surfacefit 


CERTIFICATION OF ALGORITHM 164 
ORTHOGONAL POLYNOMIAL LEAST SQUARES 
SURFACE FIT [R. E. Clark, R. N. Kubik, L. P. Phillips, 
Comm. ACM, April 1963] 

C. V. BITTER. 

Johns Hopkins Univ. Applied Physics Lab., Silver Spring, 
Md. 


The SURFACEFIT algorithm was translated into ForTRAN 
and successfully run on an IBM 7094. It was necessary to make the 
following corrections: 

(a) 12th line after 


comment evaluate orthogonal polynomials; 
should read 
numa := numa + ult] X alt] x pln—1,7] Tf 2; 
(b) 2nd line after 
comment evaluation of orthogonal polynomial coefficients; 
should read 
peln,n] := 1.0; 
(ce) 12th line after 
comment evaluation of orthogonal polynomial coefficients; 
should read 
if ¢ ~ 1 then gclm,t] := gelm,t] + gclm—1,t—1]; 
(d) 8th line after 


comment evaluation of dependent variables using the approxi- 
mating polynominal 


should read 
for ¢ := mmazx —1 step —1 until 1 do 


The following function was used to generate data for checking 
this algorithm: 


2=1-2+y-7yt+2- y? 
for z= 0,1, 2,3,4 
and y = 0,1, 2,3,4 


The resulting polynomial was: 


COLLECTED ALGORITHMS (cont.) 


SS = Sy = ay a 
which is correct for the normalized variables. 
It should be pointed out in the comment for this procedure 


that the resulting polynomial is in the normalized variables and 
not the original variables. 
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ALGORITHM 165 

COMPLETE ELLIPTIC INTEGRALS 

Henry C. THacuer, JR.* 

Reactor Eng. Div., Argonne National Lab., Argonne, III. 


* Work supported by the U.S. Atomic Energy Commission. 
procedure KANDE (ml, K, E, tol, alarm); 


value m1, tol; 
real ml, K, £, tol; 
label alarm; 
comment this procedure computes the complete elliptic inte- 
grals K(ml) = S (1 — (1 — ml) sin’v)-2 dy and E(ml1) = 
: ( — (1 — ml) sin?v)/2 dy by the arithmetic-geometric- 
mean process. The accuracy is limited only by the accuracy of 
the arithmetic. 
Except for the provision of tests for pathological values of the 
parameter, the calculation of K is only a slight modification of 
the second procedure of Algorithm No. 149 (Comm. ACM. 6 
(Dec. 1962), 605). These integrals may also be approximated to 
limited (6D) accuracy by Algorithms 55 and 56 (Comm. ACM. 4 
(Apr. 1961), 180). Unless the square-root is exceptionally fast, 
the latter algorithms are probably more efficient for 6D-accu- 
racy. 
The complementary parameter, ml, is chosen as the inde- 
pendent variable, rather than the parameter, m, the modulus, 
k or the modular angle a, because of the possibility of serious 
loss of significance in generating ml from the other possible 
independent variables when m1 is small and dK/dml is very 
large. These variables are related by ml = 1 —-m=1-—-k? = 
cos’a. 


The formal parameter, tol, determines the relative accuracy 
of the result. To prevent entering a nonterminating loop, tol 
should not be less than twice the relative error in the square 
root routine. If ml S 0 or if ml > 1, the procedure exits to 
alarm. K(0) = © while E(0) = 1.00000000. 

The body of this procedure has been tested using the Dart- 
mouth ScauP processor for the LGP-30. With tol = 5 — 7, 
results agreed with tabulated values to within 3 in the seventh 
significant digit; 

begin real a, b, c, sum, temp; 
integer fact; 
ifm1>1V m1 S 0 then go to alarm; 
a:= fact := 1; 
b >= sert(ml); 
temp := 1 — ml; 
sum.:= 0; 
iler: sum := sum + temp; 
c:= (a — b)/2; 
fact := fact + fact; 
temp := (a + b)/2; 
b i= sgrt (a X b); 
a >= temp; 
temp >= fact XcX ¢; 
if abs(c) 2 tol X a V temp > tol X sum then go to iter; 
sum := sum + temp; 
K := 3.141592654/(@ + b); 
comment pi must be given to the full accuracy desired; 
E:= K X (1 — sum/2) 
end 


165-P 1- Rl 


CERTIFICATION OF ALGORITHM 165 [S21] 

COMPLETE ELLIPTIC INTEGRALS [Henry C. 
Thacher Jr., Comm. ACM 6 (Apr. 1963), 163] 

I. Farkas (Recd. 1 Aug. 1968) 

Dept. of Computer Science, University of Toronto, 
Toronto, Ontario, Canada 


KEY WORDS AND PHRASES: special functions, complete 
elliptic integral of the first kind, complete elliptic integral of the 
second kind 

CR CATEGORIES: 5.12 


One misprint and one semantic error were found in Algorithm 
165: 
1. The procedure heading 

procedure KANDE (ml,K,E,tol,alarm); 
should read 
procedure KANDE (m1,K,E,tol,alarm); 
2. The second statement in the procedure body 


a := fact: = 1; 
should read 
fact: = 1l;a: = 1; 


because fact and a are of different types. 

Algorithm 165 was translated into Fortran IV on an IBM 7094- 
II, whose single-precision mantissa has 27 significant bits (about 
8 significant decimal digits). Because our SQRT program has a 
relative accuracy of .751 — 8, tol was chosen 3 — 8. K and E were 
generated for ml = (.01(.01)1.0) (to 27 bits) and the results ob- 
tained were compared with tables in [1]. For ml = .01 E differed 
by two units in the last place; for all other values of ml, the maxi- 
mum absolute error was one unit in the last place. The time taken 
to activate KANDE for the above 100 values of ml was 0.1 sec. 


REFERENCE: 


1. ABRAMOWwITzZ, M., AND Stecun, I. A. (Eds.) Handbook of 
Mathematical Functions. NBS Appl. Math. Ser. 55, US Govt. 
Printing Off., Washington, D. C., 1964. 
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ALGORITHM 166 
MONTECARLO 

R. D. RopmMan 

Burroughs Corp., Pasadena, Calif. 


procedure montecarlo (n, a, row, tol, mxm, inv, test, count); 

value n, row, tol, mam; integer n, row, mzm, count; 

real tol; real array a, inv, test; 

comment this procedure will compute a single row of the 
inverse of a given matrix using a monte carlo technique. 
n is the size of the matrix,.array a is the matrix, row indicates 
which inverse row is to be computed, tol is a tolerance factor 
and thus a criterion for terminating the process, mam is 1000 
times the maximum number of random walks to be taken, 
after which the process is terminated, array inv contains the 
inverse row, array test contains the innerproduct of inv with 
the rowth column of a, count is the number of random walks 
executed upon termination. real procedure RANDOM must 
be declared in the blockhead of procedure MONTE CARLO 
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REMARK ON ALGORITHM 166 

MONTECARLO INVERSE [R. D. Rodman, Comm. 
ACM, Apr. 1963] 

R. D. RopMan 

Burroughs Corp., Pasadena, Calif. 


The algorithm contained two errors: 
(1) The line which reads — 
start: pi= (n—1)/n Xn; 
should read 
start: p:= (n—1)/n f 2; 
(2) The line which reads 
start2: walk := (random/p) + 1; 
should read 
start2: walk: = entier ((random/p) + 1); 

After making the preceding corrections, procedure montecarlo 
was transliterated into EXTENDED ALGOL and run successfully 
on the Burroughs B-5000. Convergence occurred in all cases where 
the matrix satisfied the conditions set down in the comment state- 
ment of the algorithm. It was found that convergence was quickest 
and the routine most practical for matrices with eigenvalues small 


and generates a single random number between 0 and 1. If 
ais the matrix to be inverted, the absolute value of the largest 
eigenvalue of the matrix I — a (J is the unit matrix) must be 
less than one to assure convergence. This procedure is easily 
adapted to finding a single unknown from a set of simultaneous 
linear equations; 
begin integer 7, j,k, nwk, lastwalk, walk; real res, p, g; 
real array sum([l:n], v[1:n, 1:1]; 
start: pi= (n—1)/n Xn; 
for? := 1 step 1 until x do for j:= 1 step 1 until n do 
o[t,j] := if 7 7 then —alt,j]/p else (1—a[z,j])/p; 
nwk := 1000; 
count := res := 0; 
for k := 1 step 1 until n do test [k] := sum [k) := 0; 
startl: lastwalk := row; g:= 1; 
start2: walk := (RANDOM/p) + 1; 
if walk > n then go to stop; 
g := v[lastwalk,walk] X g; lastwalk := walk; 
go to siart2; 
stop: count:=count+1; sum[lastwalk] : 
if count < nuk then go to siartl; 
for k := 1 step 1 until n do inv[k] : = n X sum{k]/count; 
for 7 := 1 step 1 until n do fork := 1 step 1 until x do 
test[¢] := inv[k] X alk, 7] + test[z]; 
for 7 := 1 step 1 until row—1, row+1 step 1 until n do 
res :== abs(test{i]) + res; res : = abs(test{[row]—1) + res; 
if res < tol then go to exit; 
if count 2 1000 X mam then go to exit; 
nwk >= nwk + 1000; res := 0; 
for k := 1 step 1 until n do fest [k] : = 0; 
go to siaril; 
exit: end of monte carlo inversion procedure 


sum(lastwalk] + g; 


relative to one. 
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ALGORITHM 167 

CALCULATION OF CONFLUENT DIVIDED 

DIFFERENCES 

W. Kanan anp I. Farkas 

Institute of Computer Science, University of Toronto, 
Canada 


real procedure DVDFC(n,X,V,B,W); integern; 
real array X, V, B, W; 

comment DVDFC ca.culates the forward divided difference 
Af(X1 , X2,°++* X,). nis an integer which takes the values 
n=1,2,3,°°* inturn. X isa real array of dimension at least 
nin which X[i] = X; fori = 1,2,-+: ,n. The values X; need 
not be distinct nor in any special order, but once the array X 
is chosen it will fix the interpretation of the arrays B and V. 
If X[1], X[2], --+ , X[n] are in monotonic order, then the effect 
of roundoff upon any nth divided difference is no more than 
would be caused by perturbing each f(X[i]) by n units at most 
in its last significant place. But if the X’s are not in mono- 
tonic order, the error can be catastrophic if some of the divided 
differences are relatively large. V is a real array of dimension 
at least n containing the values of the function f(X) and per- 
haps its derivatives at the point X;. V{[i] = f™(X;)/ml! and 
m = m; fort = 1,2,3,--- ,n. m,is the number of times that 
the value of X; has previously appeared in the array X. B is 
a real array of dimension at least n containing backward divided 
differences. Before a reference to DV DFC is executed one should 
have Bit] = Af(X;, Xsui,¢++ , Xn) ford = 1,2,-°* , n—-1. 
After that reference to DV DFC is executed one will find B[7] = 
AS(X: , Xign, tt? , Xn, Xn) fort = 1, 2,°++ , n—1, n. When 
n = 1 the initial state of B is irrelevant. W is a real array of 
dimension (2 + 7%) at least, where m is the maximum value of 
m; fort = 1,2,°+- ,n. W is used for work space; 

begin real DENOM; integer i, ;, NK, NIN; 


ifn = 1 then go to L1; 

NK :=1; 

for i := 1 step 1 until n do 
begin 


if X[i] = X[n] then begin NK := NK + 1; 
WINK] := V{t] end 
end 7; 
for i := step —1 until 2 do 
begin Wi] := Blt — 1]; Bi] := W[2]; 
NIN := ifn —i+2< NK then n — i + 2 else NK; 
for j := NIN step —1 until 2 do 
begin 
DENOM := X{(n] — X[i + 7 — 3); 
if DENOM # 0 then go to L2; 
Wh) := Wo + 1); 
if NK — j — 1 # 0 then go Cont; 
NK := NK —-1; 
go to Cont; 
L2: W{j]:= (Wij) — Wij — 1])/DENOM; 
Cont: end j 
end 7; 
Bil] := W{2]; 
go to L3; 
Zi: Bil]: = Vfl); 
L3: DVDFC := Bfi] 
end DVDFC 
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The following program segment is an example of how DV DFC can 
be used to construct a table of forward or backward differences. 


for n := 1 step 1 until N do 

begin 

X[n} := +++ 3 V[nJi= +--+ 5 Fln):= DVDFC(n, X, V, B, W) 
end; 


The array F can be used in FNEWT (z, N, X, F, R, D, E) or the 
array Bin BNEWT (z, N, X, B, P, D, E). See algorithms ‘‘New- 
ton interpolation with forward (backward) divided differences.’”’ 

DVDFC has been written as a Fortran II function and is avail- 
able from I.C.8., University of Toronto; 


CERTIFICATION OF ALGORITHM 167 
CALCULATION OF CONFLUENT DIVIDED DIF- 
FERENCES [W. Kahan and I. Farkas, Comm. 
ACM, Apr. 1963] 
CERTIFICATION OF ALGORITHM 168 
NEWTON INTERPOLATION WITH BACKWARD 
DIVIDED DIFFERENCES [W. Kahan and I. 
Farkas, Comm. ACM, Apr. 1963] 
CERTIFICATION OF ALGORITHM 169 
NEWTON INTERPOLATION WITH FORWARD 
DIVIDED DIFFERENCES [W. Kahan and I. 
Farkas, Comm. ACM, Apr. 1963.] 
Henry C. THACHER, JR. * 
Argonne National Laboratory, Argonne, III. 


The bodies of these procedures were tested on the LGP-30 
computer using the Dartmouth ScauLp compiler. Compilation and 
execution revealed no syntactical or mathematical errors. 

It is to be noted that, although with Algorithm 169, reducing 
the value of N from that used to generate F leads to an interpola- 
tion polynomial based on fewer points, this is not true for Al- 
gorithm 168. This flexibility could be supplied by adding an 
additional formal parameter, deg, say, to the procedure, and by 
making the for statement read: 


“for 1 := N — deg step 1 until N do-::: ” 


The logic of the error estimate in Algorithms 168 and 169 is not 
entirely clear. However, it appears that the estimate can be ad- 
justed for different precision of arithmetic by adjusting the con- 
stant 3:—8 appropriately. For the Scar arithmetic, this constant 
was changed to lw—7. 

The algorithms were tested on the examples given by Milne- 
Thomson [The Calculus of Finite Differences, p. 4, Macmillan, 
1951] and by Milne [Numerical Calculus, p. 204, Princeton, 1949]. 
In both examples, Algorithm 167 reproduced the divided differ- 
ence table, and both Algorithms 168 and 169 reproduced the input 
values. As a check of the calculation of confluent divided differ-. 
ences, values of the exponential function of its first two deriva- 
tives at x = 5.0 and 6.0 were used. The difference table shown in 
Table A was obtained. 


* Work supported by the U. S. Atomic Energy Commission. 
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TABLE A 
n X[n] V{n] Bin} Bin—1] Bi[n—2} Bin—3]} Bin—4] Bin—5] 
1 5. 148.4132 148.4132 
2 5. 148.4132 148.4132 148 .4132 
3 6. 403 .4288 403 . 4287 255.0155 106.6023 
4 6. 403 .4288 403 .4287 403 .4287 148 .4132 41.81091 
5 5. 74.20658 148.4132 255.0155 148.4132 41.81091 9.415191 
6 6. 201.7144 403 . 4287 255.0155 148.4132 53 .30115 11.49023 2.075043 
The forward differences lie along the top diagonal. 
Use of these results with Byewr and with Fvewr gave the following results, for N = 6. 
BNEWT FNEW'T 
4 pan ees 
P D E R D E 
5.000000 148.4132 148.4132 .4567298 1074 148.4132 148.4132 . 7420658 & 1075 
5.500000 244.6973 244 .6924 .4173722 & 10-4 244.6973 244.6924 .3078276 XX 10-4 
6.000000 .2017143 XK 1074 403 .4287 403 .4287 . 7441404 *& 1074 


403 .4287 


403 .4287 
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ALGORITHM 168 

NEWTON INTERPOLATION WITH 

BACKWARD DIVIDED DIFFERENCES 

W. Kanan AND I. Farkas 

Institute of Computer Science, University of Toronto, 
Canada 


procedure BNEWT(z, N, X, B, P, D, FE); value z, N; 
real z, P, D, E; integer NV; real array X, B; 

comment X is a real array of dimension at least N in which 
A |i] = X,; fort = 1, 2, 3,--: , N. The values X; need not be 
distinct nor in any special order, but once the array X is chosen 
it will fix the interpretation of the array B. Bis a real array of 
dimension at least N and contains the backward divided differ- 
ences Blt] = Af(X;, Xint, +++, Xw) 1 = 1,2,°°: , N. If two 
or more of the values X; are equal then some of the B’s must 
be confluent divided differences, see algorithm: ‘Calculation of 
confluent divided differences.’’ P is the value of the following 
polynomial in z of degree V—1 at most, B(N) + (z—Xy)- 
{BIN-1) + (2-Xwut{BUIN—-2) + +++ + (@-X2)B()} +++ Hf. 
This polynomial is an interpolation polynomial which would, 
but for rounding errors, match values of the function f(z) and 
any of its derivatives that DV DFC might have been given. D 
is the value of the derivative of P. Eis the maximum error in 
P caused by roundoff during the execution of BNEWT. The 
error estimate is based upon the assumption that the result of 
each floating point arithmetic operation is truncated to 27 sig- 
nificant binary digits as is the case in FortTRAN programs on 
the 7090. BNEWT has been written as a Fortran IT subroutine 
and is available from I.C.8., University of Toronto; 

begin real zl; integer 7; 


Pi=D:=EH:=0; 


for i := 1 step 1 until NV do 
begin 


zi:=2-—-— X{z]; 
D:= P+21xX D; 
P:= Bi] + 21 x P; 


E := abs(P) + EX abs(z1) 
end; 

E:= (.5XE — abs(P)) X39 — § 
end BNEWT 
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Argonne National Laboratory, Argonne, IIl. 
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The bodies of these procedures were tested on the LGP-30 
computer using the Dartmouth ScaLp compiler. Compilation and 
execution revealed no syntactical or mathematical errors. 

It is to be noted that, although with Algorithm 169, reducing 
the value of N from that used to generate F leads to an interpola- 
tion polynomial based on fewer points, this is not true for Al- 
gorithm 168. This flexibility could be supplied by adding an 
additional formal parameter, deg, say, to the procedure, and by 
making the for statement read: 


“for i := N — deg step 1 until N do::: ” 


The logic of the error estimate in Algorithms 168 and 169 is not. 
entirely clear. However, it appears that the estimate can be ad- 
justed for different precision of arithmetic by adjusting the con- 
stant 3:—8 appropriately. For the Scar arithmetic, this constant 
was changed to lwu—7. 

The algorithms were tested on the examples given by Milne- 
Thomson [The Calculus of Finite Differences, p. 4, Macmillan, 
1951] and by Milne [Numerical Calculus, p. 204, Princeton, 1949]. 
In both examples, Algorithm 167 reproduced the divided differ- 
ence table, and both Algorithms 168 and 169 reproduced the input 
values. As a check of the calculation of confluent divided differ- 
ences, values of the exponential function of its first two deriva- 
tives at x = 5.0 and 6.0 were used. The difference table shown in 
Table A was obtained. 
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TABLE A 
V{[n] Bin] B(n—1] Bi{n—2] Bi[n—-3] Bi[n—4] Bin—5] 
148 .4132 148.4132 
148.4132 148.4132 148.4132 
403 . 4288 403 . 4287 255.0155 106.6023 
403 . 4288 403. 4287 403 . 4287 148 .4132 41.81091 
74. 20658 148.4132 255.0155 148 .4132 41.81091 9.415191 
201.7144 403 .4287 255.0155 148.4132 53.30115 11.49023 2.075043 
The forward differences lie along the top diagonal. 
Use of these results with Byewr and with Fvewr gave the following results, for N = 6. 
BNEWT FNEWT 
z _——_—_-. - — 
P D E R | D E 
5.000000 148.4132 148 .4132 .4567298 * 10-4 148.4132 148.4132 . 7420658 X 1075 
5.500000 244.6973 244 .6924 .4173722 X 1074 244.6973 244 .6924 .38078276 X 1074 
6.000000 403 .4287 403 .4287 .2017143 &K 10-4 403 .4287 403 .4287 .7441404 & 1074 
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ALGORITHM 169 

NEWTON INTERPOLATION WITH 

FORWARD DIVIDED DIFFERENCES 

W. KaHan AnD I. Farkas 

Institute of Computer Science, University of Toronto, 
Janada 


procedure FNEWT(z, N, X, F, R, D, E); value z, N; 
real z, R, D, FE; integer N; real array X, F; 

comment X is a real array of dimension at least N in which 
X[i] = X; for? = 1, 2,--- , N. The values X; need not be dis- 
tinct nor in any special order, but once the array X is chosen 
it will fix the interpretation of the array F. F is a real array 
of dimension at least N and contains the forward divided 
differences F[i] = Af(X1, X2,°°: , Xi) @ = 1,2,+°+ , N. If 
two or more of the values X; are equal then some of the F’s 
must be confluent divided differences, see algorithm: ‘‘Calcu- 
lation of confluent divided differences.” R is the value of the fol- 
lowing polynomial in z of degree N—1 at most, F(1) + (e—Xi)- 
{F(2) + (2-Xa){FB) +++ + (e—Xwu)F(N)} --- }}. This 
polynomial is an interpolation polynomial which would, but 
for rounding errors, match values of the function f(z) and any 
of its derivatives that DV DFC might have been given. D is the 
value of the derivative of R. FE is the maximum error in R& 
caused by roundoff during .the execution of FNEWT. The 
error estimate is based upon the assumption that the result of 
each floating-point arithmetic operation is truncated to 27 
significant binary digits as is the case in ForTRAN programs 
on the 7090. FNEWT has been written as a Fortran II sub- 
routine and is available from I.C.S., University of Toronto; 

begin real zl; integer 7; 

R:=D:=EH:=0; 


for 1 := N step —1 until 1 do 
begin 

zl:=2— Xft]; 

D:=R+21 xD; 

Ri= Flt] + 21lxR; 

E := abs(R) + abs(z1)XE 
end; 


E:= (15XE — abs(R))X3.0 — 8 
end FNEWT 


CERTIFICATION OF ALGORITHM 167 
CALCULATION OF CONFLUENT DIVIDED DIF- 
FERENCES [W. Kahan and I. Farkas, Comm. 
ACM, Apr. 1963] 
CERTIFICATION OF ALGORITHM 168 
NEWTON INTERPOLATION WITH BACKWARD 
DIVIDED DIFFERENCES [W. Kahan and I. 
Farkas, Comm. ACM, Apr. 1963] 
CERTIFICATION OF ALGORITHM 169 
NEWTON INTERPOLATION WITH FORWARD 
DIVIDED DIFFERENCES [W. Kahan and I. 
Farkas, Comm. ACM, Apr. 1963.] 
Henry C. THACHER, JR.* 
Argonne National Laboratory, Argonne, Ill. 
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The bodies of these procedures were tested on the LGP-30 
computer using the Dartmouth ScaLp compiler. Compilation and 
execution revealed no syntactical or mathematical errors. 

It is to be noted that, although with Algorithm 169, reducing 
the value of N from that used to generate F leads to an interpola- 
tion polynomial based on fewer points, this is not true for Al- 
gorithm 168. This flexibility could be supplied by adding an 
additional formal parameter, deg, say, to the procedure, and by 
making the for statement read: 


“for 7 := N — deg step 1 until N do::: ”’ 


The logic of the error estimate in Algorithms 168 and 169 is not 
entirely clear. However, it appears that the estimate can be ad- 
justed for different precision of arithmetic by adjusting the con- 
stant 31—8 appropriately. For the ScauP arithmetic, this constant 
was changed to lu—7. 

The algorithms were tested on the examples given by Milne- 
Thomson [The Calculus of Finite Differences, p. 4, Macmillan, 
1951] and by Milne [Numerical Calculus, p. 204, Princeton, 1949]. 
In both examples, Algorithm 167 reproduced the divided differ- 
ence table, and both Algorithms 168 and 169 reproduced the input 
values. As a check of the calculation of confluent divided differ- 
ences, values of the exponential function of its first two deriva- 
tives at x = 5.0 and 6.0 were used. The difference table shown in 
Table A was obtained. 
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TABLE A 

n X{(n] Vin] Bin] Bin-1] Bin—2} Bin—3] Bin—4] Bin—S] 
rer Dee ee Rta ee ee : jt 

1 5.0 148.4132 148.4132 

2 5.0 148.4132 148.4132 148.4132 

3 6.0 403 .4288 403.4287 255.0155 106 .6023 

4 6.0 403 .4288 403 .4287 403 .4287 148 .4132 4181091 

5 5.0 74.20658 148 .4132 255.0155 148.4132 41.81091 9.415191 

6 6.0 201.7144 403 .4287 255.0155 148.4132 53.30115 11.49023 2.075043 


The forward differences lie along the top diagonal. 


BNEWT FNEWT 

P D E R D E 
5.000000 148 .4132 148.4132 -4567298 X 1074 148.4132 148.4132 . 7420658 X 1075 
5.500000 244.6973 244 6924 -4173722 * 107+ 244.6973 244.6924 .8078276 X 107+ 
6.000000 403 .4287 403 .4287 -2017143 & 1074 403 .4287 403 .4287 .7441404 X 1074 
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ALGORITHM 170 

REDUCTION OF A MATRIX CONTAINING 
POLYNOMIAL ELEMENTS 

Patt E. HENNION 

Giannini Controls Corp., Astromechanics Res. Div., 
Berwyn, Penn. 


real procedure POLYMATRIX (A, NCOL, N, COE, NP1); 
value 4, NCOL,N; real array A; integer NCOL, N; 

comment this procedure will expand a general determinant, 
where each of the elements are polynomials in the Laplace com- 
plex variable. This program is useful for the investigation of 
dynamic stability problems when using the transfer function 
approach. The process is one of triangularization of a poly- 
nomial matrix with real coefficients whereupon multiplication 
of the diagonal elements the determinant polynomial is formed. 
The polynomial matrix as defined herein is a matrix whose 
elements are polynomials of the form > ?_) ai’. When such a 
matrix is triangularized, all elements below the main diagonal 
are nulled. Then upon expanding, the nonvanishing terms are 
those formed by the product of these diagonal elements. Hence 
stability criteria may be checked by evaluating the roots of the 
characteristic equation thus formed using some suitable root 
extracting routine. 

Consider the polynomial matrix with quadratie elements 
(N = 2). In this case the three-dimensional input matrix A is 
size A[l: NCOL, 1:NCOL, 1:M], where.NCOL is the order of 
the matrix and M = N X NCOL + 1. Here the first subscript 
of A refers to the row, the second to the column, and the third 


to the polynomial coefficient. Therefore, prior to entry the con-- 


stant term of a general polynomial element is contained in 
Alt, j, 1], the linear term is contained in A[z, j, 2], and the 
quadratic term in A[z, 7, 3]. Upon completion of the routine, the 
coefficients of the determinant polynomial are contained in 
COE [1:M]. The constant coefficient being in COE [1], the linear 
coefficient in COE [2], the quadratic coefficient in COE [3], etc. 
The variable N P1 will specify the number of coefficients of the 
determinant polynomial. In general NP1 # M since some terms 
may vanish during the expansion. 

If the polynomials comprising the matrix elements are not 
all of equal degree, set N prior to entry equal to the degree of 
the highest ordered polynomial; 

begin real sa, sb; integer 7, j,k, 71, 72, 33, 34, 95, 96, 37, 98, 79, 710, 
jll, NP1, M; array C1[1:M], C2[t:M], COE[1:M]; 
integer array MAT [1:NCOL, 1:NCOL]; 
start: M := NXNCOL+1; for i := 1 step until NCOL do 
begin for j := 1 step 1 until NCOL do begin MAT [i,j] : = 0; 
for k := 1 step 1 until M do begin 
if Aft, 7,k]#0 then MAT [i,j]:=k; endendend; j1:=1: 
LO: 39:=0; ford := j1 step 1 until NCOL do begin 
if MAT [2,j1]<0 then go to exit; 
else if MAT [:, 31] =0 then go to Ll 
else 79 := j9+1; j8:= 172; 
Li: end; if (9—1)<0 then go to exit 
else if ((9—1)>0 then go to L2 
else if (33—j1)<0 then go to ezil 
else if (33—j1)=0 then go to L12 
else for j := j1 step 1 until NCOL do 
begin j2:= MAX (MAT [j3,j], MAT [y1,3]); 94:25 MAT [33,3]; 
MAT [33,3] := MAT [jl, 3]; MAT [1,3] : = 94; 
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for k := 1 step 1 until 72 do 
begin sa := A [j3, 7,4]; A[j3,3,4]:= Alsi, 3, k); 
Afjl,j,sh] := —sa; end end; go to L12; 
[2: j3:= jl1+1; fori := 73 step 1 until NCOL do begin 
£3: if (MAT{i,j1])<0 then go to exit 
else if [MAT [2,j1])=0 then go to L1l1 
else if (MAT [j1,j1])<0 then go to exit 
else if (MATT[j1,j1]) =0 then go to L4 
else if (MAT [i,j1] -MAT [j1,j1]) = Othen gotoL5 else 
[4: for j:= jl step 1 until NCOL do begin 
j2:= MAX(MAT [j1,3], MAT [i, 3); 34 3= MAT [y1,3]; 
MAT (j1,j] := MAT [1,5]; MAT [i,j] >= 34; 
for k := 1 step 1 until j2 do begin sa := A[{i,j,k); 
Alt,j,k] := Alsl,7,k]; Als1,7,4] := —sa; 
end end; go to L3; 
comment Interchange row i with j1; 
L5: j7 := MAT [i,j1]; 75 := MAT [1,91]; 
sb t= Ali,s1,j71/Al1,/1,951; 
if (abs(sb) —4) <0 then go to L6 
else if (j6)<0 then go to ezit 
else if (j6)=0 then go to 14 else 
L6: for j:= jl step 1 until NCOL do begin j5 := MAT [j1, 3]; 
for k := 1 step 1 until j5 do begin j7 := k+ 6; 
if G7—M)>0 then go to L10 else 
L7: if (abs(A[t,j,47] —sbX A[j1,j,k]) -—20—8) $0 then go to L8 
else A{i,j,j7] := Ali,7,j7] —sbx A[y1,7,k]; 


i6 t= 77355 


go to L9; 
D8: Ali,j,77] := 0; 
L9: end end; 
£10: for j := jl step 1 until NCOL do begin 


j7 := MAX(MAT [t,3], MAT[j1,3)+36); MAT [2,7] : = 0; 
for k := 1 step 1 until M do begin if (A[t,j,k])40 then 
MAT [i,j] := k end end; 


£11: end; goto LQ; 
EA2: jl := j1+1; if Gl1—NCOL)<0 then goto LO else 
for j := 1 step 1 until NCOL do begin 


j2:= MAT |j,3); 
for k := 1 step 1 until j2 do C1[k] := Alj,7,k]; 
D13: if j—1)<0 then go to exit 
else if (j—1)=0 then go to L14 
else for k := 1 step 1 until NP1 do C2[k] := COE(k]; 
for k := 1 step 1 until M@ do COE{[k] := 0; 
if (j2)<0 then go to exit 
else if (j2)=0 then go to L15 
else for k := 1 step 1 until j2 do begin 
for j10 := 1 step 1 until NP1 do begin 
gjll := k+ 710-1; 
COE[j11):= COEIj11]+ C1 [k] x C2[j10]; 
endend; NP1 := jll; goto Z15; 
I14: fork := 1 step 1 until j2 do COE [k] := C1 [k]; 
NP1 := 32; 
L15: end; 
exit: end POLYMATRIX 
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REMARK ON ALGORITHM 170 

REDUCTION OF A MATRIX CONTAINING POLY- 
NOMIAL ELEMENTS [P. E. Hennion, Comm. ACM, 
Apr. 1963] 

P. E. HENNION 

Giannini Controls Corp., Berwyn, Penn. 


Four typographical errors were found upon reviewing the 

procedure. The following corrections should be made: 

(1) The increment for the for statement of line start:, should be 1. 

(2) The colon at the end of the third line after line start:, should 
be replaced by a semicolon. 

(3) The semicolon at the end of the first line after line LO:, may 
be removed. 

(4) The last statement of the first column should read: 


MAT|i,j) := k; end end; 


CERTIFICATION OF ALGORITHM 170 [F3] 

REDUCTION OF A MATRIX CONTAINING POLY- 
NOMIAL ELEMENTS [P. E. Hennion, Comm. ACM 
6 (April 1963), 165; 6 (Aug. 1963), 450] 

KAREN B. Priese (Recd. 18 Dec. 1963 and 18 Feb. 1964) 

Woodward Governor Co., Rockford, Il. 


Algorithm 170 was translated into Fast for the NCR 315 and 
gave satisfactory results with the following corrections: 
1. real procedure ... integer NCOL, N; should be replaced 
by 
procedure POLYMATRIX (A, NCOL, N, COE, NP1); 
value NCOL,N; real array A, COE; 
integer NCOL, N, NP1; 
2. At the end of the first comment add: 
The global integer procedure MAX is assumed and furnishes the 
maximum of two integers. 
3. integer i,j,k, ... COE(I:M]; 
should be replaced by 
integer 7, j,k, jl, 2, 73, 34, 75, 36, 77, 98, 59, 310, j11, M; 
array C1, C2{1:NXNCOL+1); 
4. Immediately after start: the statement 


NPI :=N +1; 
should be added, and the third line after start: i.e., 
for k := 1 step 1 until M do begin 
should be replaced by 
for k := 1 step 1 until NP1 do begin 
5. The third line after Z10: i.e., 
for k := 1 step 1 until Mdo... 


should be replaced by 
for k := 1 step 1 until 77 do... 


The last two changes simply shorten both of the indicated ror 
statements. 


[EviToR’s Nots. In addition to the above corrections, we have 
two comments on the Remark on Algorithm 170 by Hennion, 
loc. ctt., p. 450: 

First, the semicolon at the end of the first line after LO must 
be removed. 

Second, correction (4) is irrelevant. 
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The referee confirms that a transcription into Burroughs Lix- 
tended ALGou of the program as corrected by Mrs. Priebe runs on 
the B5000.—G.E.F.] 
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Note. There is no algorithm for the number 171. 
Inadvertently this number was never assigned. 
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Note. There is no algorithm for the number 172. 
Inadvertently this number was never assigned. 
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ALGORITHM 173 

ASSIGN 

Oromar HAJEK 

Research Institute of Mathematical Machines, Prague, 
Czechoslovakia 


procedure assign (a) the value of : (b) with dimension : (dim) 
indices : (¢nd) bounds : (low, up) tracer : (7); 

value dim; integer dim, ind, low, up, J; 

comment This procedure uses Jensen’s device (ef. ALGOL 
Report, procedure Innerproduct) twice: the a, b may depend on 


ind and also ind, low, up may depend on 3; 


begin 
at= dim; 
for ind := low step 1 until up do 
ifdim > 1 
then 
begin 
assign (a, b, dim—1, ind, low, up, 7); 
zis dim 
' end 
else a := b 


end assign; 

comment The obvious use of ‘‘assign’’ is in assigning the value 
of one array to another. The point here is that one procedure 
declaration serves for all the dimensions used. In fact, the 
dimension may even be a variable: thus a procedure essentially 
identical with ‘“‘assign”’ was used by the author in implementing 
the recursive own process in an ALGOL compiler. 

However, in addition to this, ‘assign’? can have further 
functions, as illustrated below. The activation assign (a, (if 
1=1 then false else a) V b;.; , 1, 7, 1, n, 7) will calculate the 
jvuin-trace of a Boolean 2-dimensional array b. 
assign (@i.2, (if 7%=1 then 0 else aii) + bi.is X Cire, 

3,7; ,1, if j = 1 then n else if j = 2 then m else p, j) 
will assign toa the matrix product of b, c. It may be noticed that, 
more generally, ‘“‘assign’’ will perform all the tensor operations, 
e.g. tensor multiplication, alternation, etc. 


CERTIFICATION OF ALGORITHM 173 

ASSIGN [Otomar Hajek, Comm. ACA, June 1963] 

R. S. ScowEN 

English Electric Co. Ltd., Whetstone, Leicester, England 


Algorithm 173 (ASSIGN) has been tested successfully using 
the Detce ALGor 60 compiler. The only changes necessary were 
the addition of specifications for the formal parameters a, b 
(DevceE ALGOL 60 compiler requires specifications for all formal 
parameters). 

The author’s example, assign (a[z(1}, 2[2]], (if 2[3]=1 then 0.0 
else afz(1], 7{2]}) + b{z(1], [3] X el¢[3], ¢[2]], 3, 70], 1, if 7 = 1 
then n else if 7 = 2 then m else 7, 3); 

did form the matrix product B X C and store it in A. 

The algorithm was also used to read a matrix into the computer 
using the procedure call 

assign (b{z{1], 2[2]}], read, 2, c[7], 1, 

if j = 1 then n else p, j); 

(read is a real procedure which takes the value given by the next 
number on the input tape). 
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These examples took about three times as long to run as the 
simpler equivalent statements 


for 1 := 1 step 1 until n do 
for j := 1 step 1 until m do 
begin 

ali, 7] := 0.0; 


for k := 1 step 1 until p do 


alt, J] := alt, j] + b[t, k] X elk, 3] 
end; 
and 
for j := 1 step 1 until p do 
for 1 := 1 step 1 until n do 
bli, j] := read; 


CERTIFICATION OF ALGORITHM 173 

ASSIGN [O. Hajek, Comm. ACM, July 1963] 

Z. ¥iusak and L. VrcHOVECKA 

Research Institute of Mathematical Machines, Prague, 
and Computing Center Kanceldiské stroje, Prague 


The algorithm was modified for input to the Elliott-ALGoL 
system as follows. In Elliott-ALGoL, name-called parameters in 
recursive procedures are prescribed. Luckily, the only parameter 
which varies during the recursive call in the body of Assign is 
called by value (it is the parameter dim which determines depth 
of recursion). The body of Assign was replaced by (i) a procedure 
declaration Ass(dim), whose body is that of the original Assign, 
but with the recursive call of Assign replaced by that of Ass, 
and (ii) a single statement, the activation of Ass(dim). 

The resulting procedure was tested (on the National-lhiott 
803 in the Computing Center), on a rather large set of examples, 
including those described in the text following Algorithm 173. 
It was found that in the last example, matrix multiplication, 
indices 2; and 23 should be interchanged throughout. 

No changes of the algorithm itself were necessary. It seems 
that the modification described above, motivated by limitations 
of Elliott-ALGoL, also improve efficiency, at least for large di- 
mensions of the arrays concerned. 
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ALGORITHM 174 
A POSTERIORI BOUNDS ON A 
ZERO OF A POLYNOMIAL* 
ALLAN GIBB 
University of Alberta, Calgary, Alberta, Canada 


comment The procedures below make use of Algorithm 61, 
Procedures for Range Arithmetic [Comm. ACM 4 (1961)]. It is 
assumed that the procedures below and the range arithmetic 
procedures are contained in an outer block and, therefore, that 
the procedures are available as required. Together the proce- 
dures make possible an attempt to determine absolute bounds 
on a zero of a polynomial given an initial estimate of the zero. 
The procedures below are given for the complex case but may 
readily be adapted for the real case; 
procedure RngPlyC (N, A, Z, P); 
comment RngPlyC finds bounds [P1, P2]+ i[P3, P4] on the 
value of an nth degree polynomial Zio {[ase1, Garye] 
+ if@sess, G4t44]}2* with complex range coefficients for a com- 
plex range argument z = [Z1, 272] + i[Z3, 24]; 
integer N; array A, Z, P; 
begin integer K,J; array X, Y{1: 4]; 
Pll] := P[2]}:= P[3]:= P[4]:=0; 
for K := 4X N step —4 until 0 do 
begin for J := 1 step 1 until 4 do X[J] := A[K+J]; 
RNGMPYC (P({1J, P(2], P[38], P[4], Z{1], 2(2], 2(8], 214], Y(], 
Y(2], Y(3], Y[4); 

RNGSUMC (Y{l], Y[2], Y(3}, Y(4), X{l], X(2], X13], XI4l, 
Pit}, Pl2l, P[3}, Pls) 

end 

end; 

procedure RngAbsC (A, C); 

comment RngAbsC produces the range absolute value [C1, C2] 
of the complex range number [A1, A2] + i[A3, A4]; 

array A, C; 

begin array B[1 : 4]; 

RANGESQR (A[l], A[2!, BU), Bl2); 

RANGESQR (A[3], A[4], B38], Bl]; 

RANGESUM (B{1], B[2], B[3), Bl4], C{1!, C[2]); 

C{1] : = sgrt(C[1)}); 

C[2] : = sgri(C[2]); 

comment It is assumed that the accuracy of the sgri routine 
used is known and that the maximum error in sqri(C) is + K 
xX CORRECTION (C). K is to be replaced below by its appro- 
priate numerical value; 

C{l] := C{i] — K * CORRECTION (C{1)); 

C[2] := C[2] + K X CORRECTION (C[2]) 

end; 

procedure BndZrPlyC (N, ZOR, ZOJ, A, W,); 

integer NV; real ZOR, ZOJ; array A, W; 

comment BndZrPlyC attempts to determine bounds [(W1, W2] 
+ i[W3, W4] on a zero of an N-th degree polynomial in z with 
complex range coefficients. It is assumed that an estimate 
ZO = ZOR +iZOJ of the zero is available. The following 
theorem is used. Assume f is regular at 20 with f’(zo) ~ 0. Let 
he = —f(z0)/f’(z0), let A be the region | 2 ~ 2o| Sr |ho|, and 


* These procedures were developed under Office of Naval 
Research Contract Nonr-225(37) at Stanford University. The 
author wishes to thank Professor George E. Forsythe for assistance 
with this work. 


174-P 1l- 0 


assume that f is regular in A. If, for some r > 0, | f(z) | 2 (1/r). 
| f’ (zo) | for all z e A then A contains a zero of f(see [1], pp. 29-31); 
begin integer J, J; array B[1:4XN], E, F, FP, D[i:4), AF, 
AFP, G{1:2]; 
real RH, RHS, NL, NR, R, RNL, RNR; 
for ]:= 1 step 1 until N do 
begin J := 4x I; 
RANGEMPY (1,1, A{J+1}, AlJ+2], BLJ—3], BL J —2]); 
RANGEMPY (, I, A(J+3], Al/+4], BIJ—-11, BL/]) 
end; 
Efij:= £[2]):= ZOR; E([3):= £4] := ZOJ; 
RngPlyC(N, A, E, F); 
RngAbsC(F, AF); 
RngPlyC(N—1, B, E, FP); 
RngAbsC (FP, AFP); 
RANGEDVD(AF(I1], AF[2], AFP{1], AF P[2], NL, NR); 
R:=2; 
1: RANGEMPY(R, R, NR, NR, RNL, RNR); 
RANGESUM (ZOR, ZOR, —RNR, RNR, W(1], W[2]); 
RANGESUM (ZOJ, ZOJ, -RNR, RNR, W[3], W[4]); 
comment We have replaced the disk of the theorem by a square; 
RngRlyC(N—1, B, W, D); 
RngAbsC (D, G); 
if G[1] = 0 then go to fazlurel; 
comment fatlurel and failure2 are non-local labels; 
RANGEDVD(AFP(2], AFP[2], R, R, RH, RHS); 
if G[1] < RHS then 
begin R:=2X RR; 
if R > 1024 then go to failure2; 
gotol 
end 
end 


comment The following procedure may replace BndZrPlyC 
above; 

procedure BndZrPlyC2 (N, ZOR, ZOJ, A, W); 

integer N; array A,W; real ZOR, ZOJ; 

comment BndZrPlyC2 is similar to BndZrPlyC above. The 
theorem used here follows. If, in the disk | z — zo | S 2 |ho| we 
have | f’(z) | S | f’ (zo) {/(2 | ho |), then there is a unique zero in 
the disk (see [2, pp. 43-50]; 

begin integer J, J; array B[1:4xNj, C[l:4xN—4], F, D, P, 
S[1:4], X, T,Q, Y[1:2]; real V, VP, R, RL; 

for I := 1 step 1 until N do 
begin J := 4X I; 
RANGEMPY (I, 1, A{J+1], A[J+2], B[J—3], BiLJ—2)); 
RANGEMPY (U, I, A(J+3], AjJ+4], BIJ—1], BL7]) 
end; 

for J:= 1 step 1 until N —1do 
begin J := 4X /; 
RANGEMPY (, I, B(J+1], BlJ+2], ClJ—3], ClJ—2]), 
RANGEMPY (, I, BjJ+3), B[J+4], ClJ—1], Cl7)) 
end; 

D{i|:= D[2]:= ZOR; 

D[3] := D[4]:= ZOJ; 

RngPlyC(N, A, D, F); 

RngPlyC(N—-1, B, D, P); 

RngAbsC (F, T); 

RngAbsC(P, X); 

if X[1] = 0 then go to failurel; 
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comment failurel and failure2 are non-local labels; 

RANGEDVD(T{1], T[2], X[1], X{2], Q[1], Q[2)); 

RANGEMPY (2, 2, Q[2], Q[2], RL, R); 

RNGSUMC(-R, R, —R, R, ZOR, ZOR, ZOJ, ZOJ, W{1], W{2I, 
W[3], W[4)); 

RngPlyC(N — 2, C, W, 8); 

RngAbsC(S, Y); 

RANGEDVD(X{I], X{(1), R, R, V, VP); 

if Y(2] > V then go to failure2 

end 


References: 

1. Grips, ALLAN. ALGOL procedures for range arithmetic. Tech. 
Report No. 15, Appl. Math. and Statistics Laboratories, 
Stanford University (1961). 

2. Ostrowsk1, A. M. Solution of equations and systems of equations. 
Academic Press, New York, 1960. 


174-P 2- 


0 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 175 

SHUTTLE SORT 

C. J. SHaw ano T. N. TrimsBie 

System Development Corporation, Santa Monica, Calif. 


procedure shuttle sort (m, Temporary, N); 

value m; integer m; array N[1:m]; 

comment This procedure sorts the list of numbers N[1] through 
N{m] into numeric order, by exchanging out-of-order number 
pairs. The procedure is simple, requires only Temporary as 
extra storage, and is quite fast for short lists (say 25 numbers) 
and fairly fast for slightly longer lists (say 100 numbers). For 
still longer lists, though, other methods are much swifter. The 
actual parameters for Temporary and N should, of course, be 
similar in type; 
begin integer 7, 3; 


for i. := 1 step 1 until m — 1 do 
begin 
for j := 7 step —1 until 1 do 
begin 


if N(j] < N[j+1] then go to Test; 


Exchange: Temporary := N{[j]; Nj] := NGj+1); 
N(j+1l := Temporary; end of j loop; 
Test: end of ¢ loop 


end shuttle sort 


CERTIFICATION OF ALGORITHM 175 

SHUTTLE SORT [C. J. Shaw and T. N. Trimble, Comm. 
ACM, June 1963] 

GrEorRGE R. ScHuBERT* 

University of Dayton, Dayton, Ohio 


* Undergraduate research project, Computer Science Program, Univ. of 
Dayton. 


Algorithm 175 was translated into BALGoL and ran successfully 
on the Burroughs 220. The following actual sorting times were 
observed: 


Number of Items Average Time (sec) 


25 1.6 

50 6.2 
100 25.8 
250 181 
500 684. 


The algorithm can be extended so that the sort is made on one 
array, while retaining a one-to-one correspondence to a second 
array. This is done by inserting immediately before end of the j 
loop the following: 

Temporary := Y(j]; ¥YUj]):= ¥U +1); YuU+1] := Tempo- 
rary; where ¥{k] is the element to be associated with N[k]. Other 
variations are obviously possible. 
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REMARK ON ALGORITHM 175 

SHUTTLE SORT [C. J. Shaw and T. N. Trimble, Comm. 
ACM 6, June 1963] 

O. C. JUELICH 

North American Aviation, Inc., Columbus, Ohio 


The authors of this algorithm do well to remind the reader that 
“Shuttle Sort”’ is not an efficient procedure, except for lists of items 
so short that they do not justify the housekeeping apparatus 
needed by the usual sorting routines. 

The algorithm as published is not free from errors. The state- 
ment 

for j := 7 step — 1 until 1 do 
should be replaced by either: 

for 7 := m — 1 step — 1 until? do 
or 

for j := 1 step 1 until m — 7 do 

In the former case the process can be visualized as placing the 
ith smallest element in place on the ith pass; in the latter the zth 
largest element is put in place on the 7th pass. 

The label ‘‘7'est”’? should precede the delimiter ‘‘end of j loop’’ 
rather than the ‘“‘end of i ioop’’. The algorithm can be slightly 
accelerated by rewriting the body of the procedure: 

begin integer 1, 7, 7 maz; 
ti=m-—1; 
loop: jmax:=1; 
for 7 := 1 step 1 until i do 
begin 
compare: if N[j] > N{j + 1] then 
begin Exchange: Temporary := N[j]; 
NUj) >= Nig + 1; 
N{j + 1] := Temporary; 
jmax:= 7 
end Exchange; 
end of j loop; 
ti 7 max; 
if 7 > 1 then go to loop; 
end shuttle sort 

The revised procedure body will eliminate redundant iterations 
when some of the data is already ordered. 

It was studied in this form by R. L. Boyell and the writer on 
the Orpvac at Ballistics Research Laboratories, Aberdeen Proving 
Ground, in 1955. For randomly ordered data the i-loop may be 
expected to be executed about m—~/m times. 


REMARK ON ALGORITHM 175 

SHUTTLE SORT [C. J. Shaw and T. N. Trimble, Comm. 
ACM 6 (June 1963), 312; G. R. Schubert, Comm. 
ACM 6 (Oct. 1963), 619; O. C. Juelich, Comm. ACM 
6 (Dec. 1963), 739] 

Orro C. Jurticu (Reed. 18 Dec. 1963) 

North American Aviation, 4300 FE. Fifth Ave., Columbus, 
Ohio 
The appearance of Schubert's certification has caused me to 


restudy the algorithm. What I supposed were errors amount to a 
rearrangement of the order in which the comparisons are carried 
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out. The efficiency ot the algorithm is not much affected by the 
rearrangement, since the number of executions of the statements 
labeled Exchange remains the same. 
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ALGORITHM 176 

LEAST SQUARES SURFACE FIT 

T. D. ARTHURS 

The Boeing Company, Transport Division, Renton, Wash. 


procedure SURFIT (F, z, W, m, n) answers: (a, e, rms); 
integer m,n; real rms; array F, z, W, e; 
procedure Invert, sqrt; 
comment Given a set of m ordinates and the corresponding 
values of » prescribed general functions, (f;), of one or more 
linearly independent variables, this procedure fits the points, 
in the least squares sense, with a function of the form aif; + aefe 
+ ...+ anf, where a; are the unknown coefficients. Also com- 
puted are the vectors of residuals (e;) and their lengths (rms). 
Provision.is made for weighting the data points. Essentially, the 
matrix equation F WFa = F Wz is solved, where a is the vector 
of unknowns, W is an m X m diagonal matrix of data point 
weights, z is the vector of ordinate values and F is the 
m X* n matrix of corresponding function values. The availa- 
bility of a procedure Invert, which replaces a real matrix with 
its inverse, is assumed; 
begin integer 2, 7,k; real sgsum,g; array G[l:n, 1:7]; 
comment G is working space for the inversion procedure; 
sqsum := 0; 
for 2 := 1 step 1 until n do 
for 7 := 1 step 1 until n do 
begin G[t, 7] := 0; 
for k := 1 step 1 until m do 
Git, J] >= Gle, 7] + Flk, 1] X Fle, 3] X Wik] 
end j; 
Invert (G, n); 
for 7 := 1 step 1 until n do 
begin ali] := 0; 
for j := 1 step 1 until m do 
begin g := 0; 
for k := 1 step 1 until 7 do 
gi:=9+ Gli, k] x Fly, k); 
ali] := ali] + g X 2) X WEI 
end j 
end 7; 
for 4 := 1 step 1 until m do 
begin e[?] = y[?]; 
for j:= 1 step 1 until n do 
e{t] := elt] — afj] X Fle, 9]; 
sqgsum := sqsum + efi] T 2 
end 7; 
rms := sqrt (sqgsum/m) 
end SURFIT 


176-P 1- R1 


Remark on Algorithm 176 [E2] 
Least Squares Surface Fit [T.D. Arthurs, Comm. 
ACM 6 (June 1963), 313] 


Ernst Schuegraf [Recd. 1 Mar. 1971] 
Department of Mathematics. St. Francis 
University, Antigonish, Nova Scotia, Canada 


Xavier 


Algorithm 176 contains one misprint. The line which reads: 
begin ei] = yi]; 

should read: 
begin e[i] = z|i]; 
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ALGORITHM 177 

LEAST SQUARES SOLUTION WITH CONSTRAINTS 
M. J. SYNGE 

The Boeing Company, Transport Division, Renton, Wash. 


procedure CONLSQ (A, y, w, n, m, 7) results: (x) residuals: 
(e, rms) ; 
real rms; integer n, m, 7; 
abs, SURFIT; 
comment This procedure solves an overdetermined set of n 
simultaneous linear equations in m unknowns, Az = y. The 
first r equations (r<m) are satisfied exactly and the remaining 
n —r are satisfied as well-as possible by the method of least 
squares. Each equation is assigned a weight from the vector w, 
although the first r weights have no relevance. This procedure 
may be used for curve or surface fitting when the approximating 
function or its derivatives are required to have fixed values at a 
number of points; 
begin integer 7, j, k,-11, ick; integer array ic[l:m]; 
array B(l:n—r, 1:m—r]; real Amaz; 
for 1 := 1 step 1 until 7 do 
begin k:=1; for 7:= 2 step 1 until m do 
begin if abs (Alt, j]) > abs (A[i, k]) then k:= 7; end; 
ic{t]:=k; Amax:= Ali, k]; forj7:= 1 step 1 until m do 
Alt, j]:= Alt, j]/Amazx; yt] := ylt]/Amaz; 
for 22 := 1 step 1 until r do 
begin if 72 = 7 then go to skip; 
for 7 := 1 step 1 until m do 
Aftt, j] := Ali, j] — Alt, 3] X Amaz; 
yltt] >= ylte] — y[e] X Amaz; 


array A, y, w, x, @€; procedure 


Amar >= Afit, k); 


skip: end 11 
end 7; 
tech :=r-+1; for j:= 1 step 1 until m do 
begin k:= 1; 

repeat: if j = ic{k] then go to rect; 
k:=k+1; ifr 2k then go to repeat; 


tcltck] := 7; tck:= ick +1; 
next: endk; 
fori :=7-+ 1 step 1 until n do 
begin for k := 1 step 1 until r do 
y(t] >= ylz] — ylk] X Ale, cele]; 
for j:= 7+ 1 step 1 until m do 
begin Bit, j] := Alt, éc{z]]; 
for k := 1 step 1 until r do 
Bli, j] := Bli, j] — Als, tclkl] X Alk, tel) 
end j 
end 7; 
SURFIT (B, y[r+ti:n], w[rt+lin], n- 7, m—-r, 2[r+1:m], 
e(r+1:n], rms); 
comment The procedure SURFIT is called to solve the reduced 
set of nm — r simultaneous linear equations in m — r unknowns, 
Br2 = y2', which have no constraints; | 
for j:=7r+1 step 1 until m do zficlj]] : = z[y); 
for j:=1 step 1 until’r do 
begin §x[tc[7]] >= yly]; 
fori :=7-+ 1 step 1 until m do 
x(tc[7}] : = x[te[s]] — Aly, te[t]] X [tele] 
end j 
end CONLSQ 
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REMARK ON ALGORITHM 177 

LEAST SQUARES SOLUTION WITH CONSTRAINTS 
[Michael J. Synge, Comm. ACM, June 63] 

Micuar. J. SYNGE 

The Boeing Co., Transport Division, Renton, Wash. 


In row-reducing the constraint equations, CONLSQ does not 
use full pivoting nor does it detect redundancy or inconsistency 
of the constraints; it was felt that the constraints were likely 
to be few in number and well-conditioned. However, these omis- 
sions may be made good by replacing the statement 


ick := ick + 1; 
by 
done: ick := tck + 1; 


and substituting the lines below for the first seven lines of the 
first compound statement of CONLSQ. If inconsistency is found, 
the procedure exits to the nonlocal label inconsistent. A roundoff 
tolerance, eps, is used in checking consistency, and some numerical 
value (e.g. 10-*) should be substituted for it. 


begin integer 7, j, k, it, ick, mr; 
array B[l : n—r, 1: m—r]; 
real Amax, Atemp; 
for 7 := 1 step 1 until r do 
begin k := 1; mr:=7%; Amax:= Aft, 1]; 
for ii := 7 step | until m do 
begin for 7 := 1 step 1 until m do 
begin if abs(Amaz 2 abs(A[ii, j]) then go to ogo; 
mr:= it; k:= 7; Amax:= A[tt, J]; 
nogo: end j 
end 71; 
if abs(Amax) 2 eps then go to allswell; mr := 1; 
test: ifabs(y[mr]) 2 eps then go to inconsistent else mr := mr +1; 
ifr 2 mr then go to test else r := 71 — 1; 
go to done; 
allswell: for j := 1 step 1 until r do 
begin Atemp := Almr, j]; Almr, j] := Ali, J]; 
Aft, j] :=. Atemp/Amazx 
end j; 
Alemp := y[mr]; 


integer array ic{l : m]; 


y[mr] := y[t]; yt] := Atemp/Amaz: 


The Algorithm then continues with the line: 
for 12 := 1 step | until r do 
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ALGORITHM 178 

DIRECT SEARCH 

ArtTHuR F. Kaupr, JR. 

Westinghouse Electric Corp., Pittsburgh, Penn. 


procedure dtrect search (pst, X DELTA, rho, delta, 8); 
value K, DELTA, rho, delta; integer K; array psi; 
real DELTA, rho, delia; real procedure S; 
comment This procedure may be used to locate the minimum 
of the function S of K variables. A discussion of the use of this 
procedure may be found in: Robert Hooke and T. A. Jeeves, 
‘Direct Search’ Solution of Numerical and Statistical Problems 
[J. ACM 8, 2 (1961), 212-229]. The notation is essentially that 
used in Appendix B of the cited paper. The exceptions being the 
spelling of the Greek letters and the introduction of notation to 
distinguish between the process of calculating a value of S and 
the value itself—thus S(phi) and Sphi. A modified version of this 
procedure acceptable to the BAC compiler for the Burroughs 
205 and 220 computers has been prepared and run successfully; 
begin real SS, Spsi, Sphi, theta; array phi (1:K]; integer K,k; 
procedure £; for k := 1 step 1 until K do 
begin phi [k] := phi [k] + DELTA; Sphi := S(phi); 
if Spht < SS then SS := Sphi else 
begin phi [k] := phi (k] - 2X DELTA; Sphi := S(phi): 
if Sphit < SS then SS : = Sphi else phi (k] : = phi [k] + DELTA 
end—f, 
Start: Spsi := S(pst); 
1: SS := Spst; 
for k := 1 step 1 until K do phi [k] := psi [k];_ E; 
if SS < Spsi then begin 
2: fork := 1 step 1 until K do begin 
theta := pst [k]; 
pst [k] == phi [k]; 
phi |k] >= 2 X phi (k] — theta end; 
Spst := SS; SS := Sphi:= S(phi); E; 
if SS < Spsi then go to 2 else go to 1 end; 
3: if DELTA > delta then begin DELTA := rho X DELTA; 
go to 1 end end 


REMARK ON ALGORITHM 178 [E4] 

DIRECT SEARCH [Arthur F. Kaupe, Jr., Comm. ACM 
6 (June 1963), 313] 

M. Bett AND M. C. Pike (Reed. 15 Nov. 1965 and 22 
Apr. 1966) 

Institute of Computer Science, University of London, 
London, England, and Medical Research Council’s 
Statistical Research Unit, London, England 


Algorithm 178 has the following syntactical errors: 
(1) The parameter list should read 
(pst,K,DELT A ,rho,delia,S). 
(2) The declaration 
integer Kk; 
should read 
integer k; 
(3) An extra end bracket is required immediately before end E;. 
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The algorithm compiled and ran after these modifications had 
been made but for a number of problems took a prodigious amount 
of computing owing to a flaw in the algorithm caused by rounding 
error. This flaw is in procedure E and may be illustrated by the 
one-dimensional case. Let S(xz) = 1.5 — x(a < 1.5), 84 — 4.5 (> 
1.5), and start at 0 with a step of 1. The first move puts psz [1] = 
1, phi [1] = 2. The second move should then put phi [1] = 1 = 
psi[1] resulting in a jump to label 1. On many machines, however, 
E will put phi [1] = 1 + e (e>0 and very small) so that direct 
search begins to move away from 1 in very small steps. This is 
clearly not desirable and may be avoided by altering the line 

if SS < Spsi then go to 2 else go to 1 end; 
to 
if SS > Spsi then go to 1; 
for k := 1 step 1 until K do 
if abs (philk]-psi[k]) > 0.5 X DELTA then go to 2 
end; 

To accelerate the procedure, direct search should take advan- 
tage of its knowledge of the sign of its previous move in each of the 
K directions. Take, for example, the one-dimensional case with 
starting point zero and the minimum far out and negative; the 
pattern moves will arrive there quite efficiently but each first move 
of E on the way will be positive whereas the previous experience 
of the search should lead it to suspect the minimum to be in the 
opposite direction. 

Finally, two changes which we have found very useful are (i) 
some escape clause in the procedure to enable an exit to be made if 
the procedure has not terminated after some given number of 
function evaluations mazeval, with a Boolean converge taking the 
value true in general but false if the procedure has terminated 
through exceeding this number of function evaluations; and (ii) 
taking Spsi into the parameter list where it is called by name so 
that on exit Spsi contains the minimum value of the function. 

With these modifications the procedure now reads: 


procedure direct search (psi,K ,Spst,DELTA ,rho,delia,S ,converge, 


maxeval) ; 

value K,DELTA,rho,delta,maxeval; integer K,mazeval; 
array psi; 
real DELTA,rho,delta,Spsi; real procedure S; Boolean 
converge; 


comment This procedure locates the minimum of the function S of 
K variables. The method used is that of R. Hooke and T. A. 
Jeeves [‘‘Direct search’”’ solution of numerical and statistical 
problems, J. ACM. 8 (1961), 212-229] and the notation used is 
theirs except for the obvious changes required by ALGOL. On 
entry: psi[l:K] = starting point of the search, DELTA = 
initial step-length, rho = reduction factor for step-length, 
delta = minimum permitted step-length (i.e. procedure is termi- 
nated when step-length < delta), maxeval = maximum per- 
mitted number of function evaluations. On exit: psi{i:K] = 
minimum point found and Spsi = value of S at this point, 
converge = true if exit has been made from the procedure be- 
cause a minimum has been found (i.e., step-length < delta) 
otherwise converge = false (i.e. maximum number of function 
evaluations has been reached); 

begin integer k,eval; array phi,s[1:K]; real Sphi,SS,theta; 
procedure E; 
for k := 1 step 1 until K do 
begin phi[k] := phi[k] + s{k]; Sphi := S(pht); eval := eval 

+1; 
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if Sphi < SS then SS := Sphi else 
begin s[k] := — s[k]; phi[k] := phi[k] + 2.0 x s[k]; 
Spht := S(pht); eval := eval + 1; 
if Sphi < SS then SS := Sphi else 
philk] := phi[k] — s{k] 
end 
end E; 
Start: for k := 1 step 1 until K do s[k] := DELTA; 
Spsi := S(psi); eval := 1; converge := true; 
1: SS := Spst; 
for k := 1 step 1 until K do phi[k] := psi[k]; E; 
if SS < Spsi then 
begin 
2:if eval > mazeval then 


begin converge := false; 
go to EXIT 
end; 
for k := 1 step 1 until K do 
begin if phi|k| > psi[k] = s({k] < 0 then s[{k] := —s[k]; 
theta := pst[k];  pst[k] := phi[k]; phi[k] := 2.0 X philk] — 
theta 
end; 


Spst := SS; SS := Sphi := S(pht); 
if SS > Spsi then go to 1; 
for k := 1 step 1 until K do 
if abs(phi[k]—psi{k]) > 0.5 X abs(s[k]) then go to 2 
end; 
3:if DELTA > delta then 
begin DELTA := rho X DELTA; 
for k := 1 step | until K do s{k] := rho X s{k]; 
end; 
EXIT: 
end direct search 


eval := eval +1; E; 


go tol 


REMARK ON ALGORITHM 178 [E4] 

DIRECT SEARCH [Arthur F. Kaupe, Jr., Comm. ACM 
6 (June 1963), 313] 

[as revised by M. Bell and M. C. Pike, Comm. ACM 9 
(Sept. 1966), 684] 

R. Dé VocELarEne (Reed. 4 Dee. 1967) 

Department of Mathematics and Computer Center, Uni- 
versity of California, Berkeley, Calif. 94720 


KEY WORDS AND PHRASES: 
direct search 
CR CATEGORIES: 5.19 


function minimization, search, 


The procedure does not exit, as specified, after mazeval (the 
maximum number of) function evaluations. 

The 3 statements eval := eval +1 should be interchanged with 
the immediately preceding statement and replaced by a call to 
the procedure test eval defined below. The statement labeled 2 
should be deleted. 

procedure test eval; 
if eval < mazxeval then eval := eval +1 
else begin converge := false; 
go to EXIT 

end test eval 


178-P 2- R2 


REMARK ON ALGORITHM 178 [E4] 

DIRECT SEARCH [Arthur F. Kaupe, Jr., Comm. ACM 
6 (June 1963), 313]; [as revised by M. Bell and M. C. 
Pike, Comm ACM 9 (Gept. 1966), 684] 

F, K.-Tomuin anp L. B. Smita (Recd. 17 May 1968, 9 
Sept. 1968 and 30 June 1969) 

Stanford Research Institute, Menlo Park, CA 94025, and 
CERN, DD. Division, Geneva, Switzerland 

KEY WORDS AND PHRASES: 


direct search 
CR CATEGORIES: 5.19 


function minimization, search, 


The procedure DIRECT SEARCH, as modified by M. Bell and 
M. C. Pike [1], does not always provide the determined minimum. 
In addition, the maximum number of function evaluations per- 
mitted is almost always exceeded whenever the step-length is 
greater than delta at the time the number of function evaluations 
is greater than or equal to mazeval. Finally, the label 3 is not 
used. 

To insure that the determined minimum is always provided, 
the test on the number of evaluations should be moved to a point 
where the minimum has been properly provided. 

In [2] DeVogelaere remarks correctly that the procedure does 
not exit as specified and gives changes which will indeed cause the 
procedure to terminate when the number of function evaluations 
exceeds the specified limit (and not some number of evaluations 
later). However it is felt that DeVogelaere’s solution to this 
problem causes excessive testing. Therefore the test should be 
performed after an exploratory move as in [1] but it should also 
be performed when the step-length is reduced. This method of 
testing violates the letter of the specified use of mazeval but not 
the intent, which is to provide an escape from excessive calcula- 
tion. 

To obtain the determined minimum, to provide a means for 
reducing the number of function evaluations when step-length 
is greater than delia, and to eliminate the unused label: 

(1) The lines 


2: if eval > mazeval then 
begin converge := false 
go to EXIT 
end; 
should be removed. 
(2) The line (16th line from the end of the procedure given 
in [1]) 
for k := 1 step 1 until K do 
should be changed to 
2: for k := 1 step 1 until K do 
(3) The line 
Spst := SS; SS := Sphi := S(phi); eval := eval +1; E; 
should have the following code inserted after the statement 
Spst := SS; 


if eval > maxeval then 


begin 
3: converge := false; 
go to EXIT 
end; 


(4) The line 
3: if DELTA > delta then 
should be changed to 
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if DELTA > delia then 


(5) The line 
begin DELTA := rho X delta; 


should be changed to 
begin if eval > mazeval then go to 3 else 
DELTA := rho X delta; 
REFERENCES: 
1. Beuu, M., aNnD Prxn, M. C. Remark on Algorithm 178. Comm. 
ACM 9 (Sept. 1966), 684. 
2. DeVoGEeLaERE, R. Remark on Algorithm 178. Comm. ACM 11 
(July 1968), 498. 
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DIRECT SEARCH [Arthur F. Kaupe, Jr., Comm. ACM 
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Pike, Comm. ACM 9 (Sept. 1966), 684] 

Lys B. Smiru* (Recd. 9 Sept. 1968) 

Stanford Linear Accelerator Center, Stanford, CA 94305 
* Present address. CERN, Data Handling Division, 1211 
Geneva 23, Switzerland 

KEY WORDS AND PHRASES: 


direct search 
CR CATEGORIES: 5.19 


function minimization, search, 


Algorithm 178, as modified by Bell and Pike [1], has been 
used successfully by the author on a number of different problems 
and in a variety of languages (e.g. Burroughs Extended ALGOL on 
a B5500, SuBaALGOL on an IBM 7090, and Fortran on the 
IBM/360 series machines). A modification which has been found 
to be useful involves tailoring the step size to be meaningful for a 
wide variation in the magnitudes of the variables. 

As currently specified [1], each variable is incremented (or de- 
cremented) by DELTA as a minimum is sought. For a function 
such that the values of the variables differ by several orders of 
magnitude at the minimum, a universal step size causes some pa- 
rameters to be essentially ignored during much of the searching 
process. For example, if a function of two variables has a minimum 
near (100.0, 0.1), a step size of 10.0 will be useful in minimizing with 
respect to the first parameter, but it will be meaningless with re- 
spect to the second parameter until it has been reduced to near 
0.01. On the other hand, a step size of 0.01 would be useful on the 
second variable but on the first variable it would take an undesir- 
ably large number of steps to approach the minimum. 

A modification to direct search which circumvents this scaling 
problem involves the use of a different step size for each variable. 
This js easily implemented since an array is already used to hold 
the signed step size for each variable. The change is accomplished 
by removing the statement labeled Start and replacing it by the 
following statement: 


Start: for k := 1 step 1 until K do 
begin s(k) := DELTA X abs (psi(k)); 

if s(k) = 0.0 then s(k) := DELTA; 
end; 
This change sets the step size for each variable to DELTA times 
the magnitude of the starting value, or if the starting value is 0.0 
the step size is set equal to DELTA. Thus DELTA is the fraction 
of the original-value of each variable to be used as an initial step 
size. Subsequent reductions in step size are handled correctly 
without further modifications to the procedure. 

As an example of the usefulness of the above modification, con- 
sider the function 
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f(X1, Xo, Xs) = (X1 — 0.01)? + (Xz — 1.0)? + (Xa — 100.0)? 


with a minimum at (0.01, 1.0, 100.0). The following table shows the 
results of using direct search on this function with and without the 
modified step size. The results were computed on an IBM 360/75 
computer using single precision with rho = 0.1, delta = 
0.001, DELTA = 0.2 for the modified step size (giving 20 percent 
of initial value for initial step size) and DELTA = [average magni- 
tude of initial guesses for the variables] for the algorithm as pub- 
lished. 


TABLE I. f = (X1 — 0.01)? + (X2 — 1.0)? + (Xs — 100.0)? 


Number of 
function 
evaluations 


pas Final values of the variables 
inimum 
DELTA salus of f§. (> 


X |» | x 


For initial values of (0.0, 0.0, 200.0): 


Direct search 66. 6667 153 0.841 10-7 |0.00999995'0. 999995] 100.000 
Modified direct | 
search 12 112 0.597 % 10-7 |0.00999998;0. 999990) 100. 000 


For initial values of (0.05, 5.0, 500.0): 


Direct search | 168.35 174 0.934 1077 |0.0100263 |0.998058 99.9909 
Modified direct 
search 2 76 0.559 'X 10-¢ |0.00999988/0.999998] 99.9992 


Note that the modified method will tend to yield the same rela- 
tive accuracy for each parameter, whereas with a fixed step size 
direct search will tend to give the same absolute accuracy for all 
parameters. In most cases a relative accuracy is probably more 
desirable than an absolute accuracy. 

REFERENCES 
1. Bett, M., anp Pike, M. C. Remark on algorithm 178. Comm 

ACM 9 (Sept. 1966), 684. 
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ALGORITHM 179 

INCOMPLETE BETA RATIO* 

OLIVER G. Lupwia 

Mathematical Laboratory and Department of Theoret- 


ical Chemistry, University of Cambridge, England 

* Based in part on work done at Carnegie Institute of Tech- 
nology, Pittsburgh, Pennsylvania and supported by the Petroleum 
Research Fund of the American Chemical Society and by the 
National Science Foundation. 


real procedure incompletebcta (x, p, g, epsilon); 

value 2, p, g; real x, p, q, epsilon; 

begin real finsum, infsum, temp, temp 1, term, term 1, qrecur, index; 
Boolean alter; 

comment This procedure evaluates the ratio B.(p, 9)/Bi(p, 4), 
where Bz (p, q) = f -1(1—t)¢"' dt, withO S x S land p,q >0, 
but not necessarily integers. It assumes the existence of a non- 
local label, alarm, to which control is transferred upon entry to 
the procedure with invalid arguments. Also assumed is a proce- 
dure to evaluate { > te dt which is called factorial(p), (cf. e.g. 
Algorithm 80, March, 1962); 

ifz>1Vz2<0Vps0VqS Othen go to alarm; 

ifz = 0 Vx = 1 then begin incompletebeta: = x; goto Endend; 

comment This part interchanges arguments if necessary to ob- 
tain better convergence in the power series below; 

if x S 0.5 then alter := false else 
begin alter := true; temp:=p; pi:=q; qi= temp; xri= 

1 — x end; 

comment This part recurs on the (effective) qg until the power 

series below does not alternate; 


jfinsum:=0; term:=1; lemp:=1-— 2; qrecur:= index >= q; 
for index := index — 1 while index > 0 do 
begin qgrecur := index; 


term := term X (qrecur+1)/(tempxX (p+qrecur)); 
jinsum := finsum + term 
end; 
comment This part sums a power series for non-integral effec- 
tive g and yields unity for integer q; 
infsum >= term := 1; index := 0; 
comment In the following statement the convergence criterion 
might well be altered to term > epsilon, since infsum > 1 al- 
ways, thus saving one divide per cycle at the cost, perhaps, of a 
few more cycles; 
for index := index + 1 while (term/infsum) > epsilon do 
begin term := term X x X (index-grecur) X (p+index—1)/ 
(indexX (¢+index)); infsum := infsum + term 
end; 
comment This part evaluates most of the necessary factorial 
functions, minimizing the number of entries into the factorial 
procedure; 
temp := temp 1 := factorial (grecur—1); 
term := term 1 := factorial (qrecur+p—1); 
for index := qrecur step 1 until (q—0.5) do 
begin temp 1 := temp 1 X tndex; 
term 1:= term 1 X (indert+p) 
end; 
comment This part combines the partial results into the final 
one; 
temp := x T p X (infsumXterm/(pXtemp)+finsumxX term 1X 
(1—2x) f o/(qXtemp 1))/factorial (p—1); 
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incompletebeta := if alter then 1—temp else temp; 
end: end incompletebeta 


REMARK ON ALGORITHM 179 [8 14] 

INCOMPLETE BETA RATIO [Oliver G. Ludwig, Comm. 
ACM 6 (June 1963), 314] 

M. C. Pike anv J. D. Hint (Recd. 8 Oct. 1965 and 12 
Jan. 1966) 

Medical Research Council’s Statistical Research Unit, 
University College Hospital Medical School, London, 
England 


Algorithm 179 has the following two typographical errors: 
(1) the line 
if x < 0.5 then alier := false else 
should read 
if z < 0.5 then alter := false else 
(2) the line 
end:end incompletebeta 
should read 
End:end incompletebeta 


With these changes Algorithm 179 ran successfully on the ICT 
Atlas computer using Algorithm 221 (Walter Gautschi, Comm. 
ACM 7 (Mar. 1964), 143], to evaluate the factorials required. A 
minor improvement might be to call epsilon by value. 

As the algorithm stands, the permitted range of p and q is dic- 
tated by overflow problems associated with finding the values of 
factorials. For most machines this will mean that p+q will have 
to be less than about 70. In the statistical applications of this 
algorithm which we describe below this restriction is very serious. 
However, these factorials appear essentially only in the form of 
ratios, and by making use of this fact the permitted range of p 
and q can be enormously extended. This is most simply accom- 
plished by using the real procedure loggamma [Algorithm 291, 
M. C. Pike and I. D. Hill, Comm. ACM 9 (Sept. 1966), 684] modify- 
ing Algorithm 179 as follows: replace the instructions 


temp := temp := factorial (grecur—1); 
to 


temp := x Tf p X (infsumXterm/(pX temp) +finsumxX term1X 
(1—x) T q/(qX temp1)) /factorial (p—1); 


inclusive, by 


temp := 2 1 p X (infsumX exp (loggamma (qrecur+p) —loggamma 
(qrecur) —loggamma(p+1.0))-+-finsumX (1.0—x) T ¢ 
Xexp (loggamma(p+-q) —loggamma (p) —loggamma(q+1.0)));. 


This also means that the declarations of temp1 and term! are not 
required. For even moderately large values of p or q this will also 
have the effect of speeding up the algorithm [see Remark on Al- 
gorithm 291, M. C. Pike and I. D. Hill, Comm. ACM 9 (Sept. 
1966) , 685). 

The following real procedures use this algorithm to evaluate 
three of the most fréquently required statistical distribution func- 
tions. 
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real procedure Flail (k, fl, f2, epszlon); 

value k, fl, f2, epstlon; real k, f1, f2, epsilon; 

comment F tail evaluates the probability that a random variable 
following an F distribution, on fl and f2 degrees of freedom, ex- 
ceeds a positive constant k; 
Ftail := incompletebeta(f2/(f2+flXk), 0.5Xf2, 0.5X/f1, epsilon) ; 


real procedure Studeni(k, f, epsilon); 

value k, f, epsilon; real k, f, epsilon; 

comment Student evaluates the probability that the absolute 
value of a random variable following a ¢ distribution, on f de- 
grees of freedom, exceeds a positive constant k; 
Student := incompletebela(f/(f+k 7 2), 0.5Xf, 0.5, epsilon) ; 

real procedure Binomial(k, n, p, epsilon); 

value k, n, p, epsilon; real k,n, p, epsilon; 

comment Binomial evaluates the probability that a random 
variable following a binomial distribution, with parameters n 
and p, takes a value greater than or equal to k; 
Binomial := incompletebeta(p, k, n—k+1.0, epsilon); 


Remark on Algorithm 179 [S14] 
Incomplete Beta Ratio 
[Oliver G. Ludwig, Comm. ACM 6 (June 1963), 314] 


Nancy E. Bosten and E.L. Battiste [Recd. 1 Sept. 1972 
and 15 Mar. 1973] 
IMSL, Suite 510/6200 Hillcroft, Houston, TX 77036 


Description 
Algorithm 179 (modified to include the remark by M.C. Pike 
and I.D. Hill [1}) computes the Incomplete Beta Ratio using this 
equation 
INFS UM -x?-¥(PS+p) xP —x)?-(p+q) FINS UM 
1'(PS)-P(p+ 1) I(p)-Vq@+1) 
INFSUM and FINSUM represent two series summations de- 
fined as follows: 


L(p,q) = 


=. (1—PS);-p x 


INFSUM = > - “—, where 
ino «= Pt+i il 
(1— PS); = 1 li=0] 
_ ATES): 
= (1— PS)-(2— PS)++-(i— PS) = icp, ee 
Sa: (q—1)---(q-i+1) 1 


and FINSUM = ———— , 
& (p-+q—1)(p+q—2)-+-(p+q—i) (L—x)' 
where [g] is equal to the largest integer less than q. If [g] = 0» 
then FINSUM = 0. PS is defined as 


PS = 1, if q is an integer; otherwise 

= q — [gq]. 

By rearranging Algorithm 179 so that scaling can be introduced, 
the argument range of p and q can be extended and accuracy can be 
improved. 

Since /,(p, qg) is a probability and, therefore, bounded {0, 1], and 
INFSUM and FINSUM< are series having only positive terms, we 
see that /,(p, qg) is a collection of terms all of which are positive and 
bounded in the range [0, 1] 1f: (1) each term of INFSUM is multi- 
plied by (x? - r(PS + p))/(P(PS) - M(p + 1)); and (2) each term 
of FINSUM is multiplied by (¢?- (1 —x)?-I'(p+q))/(F(p)-P(g+]1)). 
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Knowing this fact, we can apply a scaling procedure to the 
algorithm. INFSUM is a decreasing series. If the product of the 
first term of INFSUM and its multiplicative factor would under- 
flow, then the sum of this series could be set to zero and all calcu- 
lations involving underflow could be avoided. This is handled in 
the modification of the algorithm given below. However, since 
INFSUM is a decreasing series, underflows may occur later in the 
calculations. No attempt has been made to handle them here. 

The second summation is more complicated. The series is 
decreasing if g/((¢ + p — 1) (4 — x)) is less than 1. If an individual 
term becomes less than 1.£-6 times the previous sum, calculation 
can be legitimately terminated since no additivity is apparent. If 
a term of the decreasing series is less than an arbitrarily small con- 
stant (EPS2), calculation is also terminated. This is done to pre- 
vent underflows in the later terms. 

If the series is increasing, the first terms may underflow. In this 
case a power of e (machine precision — 1.£-78 on the IBM 360/370) 
may be factored from each term in FINSUM (times its multiplier). 
These terms cannot be added to the sum since they are less than 
machine precision; however, they are useful in retaining the accuracy 
of the initial terms, which are then used recursively. By the nature 
of the problem, we know that any term in FINSUM, times its 
multiplier, must be less than or equal to 1, but we have factored 
out powers of e, . Therefore, if a term of FINSUM becomes greater 
than 1, we know that rescaling, by multiplying the term by « , is 
in order. 

Testing on the IBM 360/195 has shown that, by rearranging 
the calculations of the original Algorithm 179, and thus including 
scaling, the input range of the algorithm can be greatly extended 
with a high degree of accuracy. 

MDBETA requires a double precision function DLGAMA 
which computes the log of the gamma function. ACM Algorithm 
291 may be used. MDBETA was tested against the SSP routine 
BDTR given in the manual Sysfem/360 Scientific Subroutine Pack- 
age (360A-CM-03X) Version III Programmer’s Manual, H20-0205. 
MDBETA ran 3.5 times faster than BDTR with greater accuracy. 
For example, in the case x = .5, p = 2000 and q = 2000, MDBETA 
gave the correct result, .5, while BD7R gave an answer of .497026. 
The IMSL subroutine, MDBIN, was used for an additional com- 
parison when p and gq are integers. MDBIN maintains IBM 370/ 
360 single precision accuracy (approximately six significant digits). 
Over the tests performed the maximum difference occurred in the 
fifth significant digit when p and q were less than 200. Three to four 
significant digits of accuracy can be expected with p and q as large 
as 2000. 

Acknowledgments. The above ideas are the application of ideas 
learned from the late Hirondo Kuki. Routine MDBETA originated 
from a code which resides in IMSL Library 1. We thank Wayne 
Fullerton, from the University of California, Los Alamos Scientific 
Laboratory, for refereeing the paper. 


Algorithm 


SUBROUTINE MDBETA(X» P, Q@, PROB. IER) 

FUNCTION - INCOMPLETE BETA PROEAEILITY 

DISTRIBUTION FUNCTION 

USAGE - CALL MDBETA (X,P, Q, PROB, IER) 

PARAMETERS 

x - VALUE TO WHICH FUNCTION IS TO BE INTEGRATED. X 
MUST BE IN THE RANGE (@,1!) INCLUSIVE. 

Pp - INPUT (IST) PARAMETER (MUST BE GREATER THAN 0) 

Q - INPUT (2ND) PARAMETER (MUST BE GREATER THAN @) 

- OUTPUT PROBABILITY THAT A RANDOM VARIABLE FROM A 
BETA DISTRIBUTION HAVING PARAMETERS P AND Q 
WILL BE LESS THAN OR EQUAL TO X. 

IER - ERROR PARAMETER. 

IER = @ INDICATES A NORMAL EXIT 

IER = | INDICATES THAT X IS NOT IN THE RANGE 

(@,1) INCLUSIVE. 
IER = 2 INDICATES THAT P AND/OR Q@ IS LESS THAN 
OR EQUAL TO @. 


angqaaaananaanaagaanga 
vu 
re) 
co) 
o 


DOUBLE PRECISION PSs PX,» Y. Pls DPs INFSUM, CNT, WH, XB, 
* DQ, Cs EPS, EPSI, ALEPS, FINSUM, PQ, D4, EPS2, DLGAMA 
C DOUBLE PRECISION FUNCTION DLGAMA 
C MACHINE PRECISION 
DATA EPS/1.D-6/7 
C SMALLEST POSITIVE NUMBER REPRESENTABLE 
DATA EPS1/1i.D-78/ 


COLLECTED ALGORITHMS (cont.) 


Oo a 


a 


aa 


a 


a 


an 


a 


NATURAL LOG OF EPS! 
DATA ALEPS/-179.6816D@/ 
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IB,= XB/ALEPS 
INFSUM = @.D@ 


ARBITRARILY SMALL NUMBER C FIRST TERM OF A DECREASING SERIES WILL UNDERFLOV 
DATA EPS2/1.0-58/ IF (IB.NE.@) GO TO 98 
CHECK RANGES OF THE ARGUMENTS INFSUM = DEXP(XB) 
Y= CNT = INFSUM*DP 
IF (CX.LE.1.0) «AND. (X-GE.8.8)) GO TO 18 C CNT WILL EQUAL DEXP(TEMP)4#(1.DQ-PS)l#PwYeel/FACTORIAL CI) 
1ER = 1 WH = @.8D@ 
GO TO 148 6@ WH = WH + 1.D8 
1@ IF (CP.GT.8.8) -AND. (Q-GT.@.8)) GO TO 28 CNT = CNT*(WH-PS)#Y/WH 
IER = 2 XB ® CNT/(DP+VH) 
GO TO 14@ INFSUM = INFSUM + XB 
20 IER = @ IF (XB/EPS.GT.INFSUM) GO TO 8@ 
IF (X+GT.8-5) GO TO 38 C DLGAMA 18 A FUNCTION WHICH CALCULATES THE DOUBLE 
INT = 6 C PRECISION LOG GAMMA FUNCTION 
GO TO 4@ 98 FINSUM = @6.D@ 
SWITCH ARGUMENTS FOR MORE EFFICIENT USE OF THE POWER IF (DQ.LE.!.-D@) GO TO 12@ 
SERIES XB = PX + DQ*DLOG(!1.D@-Y) + PQ - Pi - DLOGCDO) - C 
38 INT = } C SCALING 
TEMP = P 1B = XB/ALEPS 
P= Q IF CIB.LT.8) IB = 8 
Q = TEMP C = 1.D6/¢1-D8-Y>? 
Yu 1.08- Y CNT »= DEXP(XB-FLOAT(IB) *ALEPS) 
48 IF (X.NE.8. .AND. X.NE.1.) GO TO 68 PS = DO 
SPECIAL CASE - X IS @. OF 1. WH = DO 
5@ PROB = @. Pl @ (PS#C)/(DP+WH- 1.D8) 
GO TO 138 XB = PI*CNT 
6@ IB = Q IF (XB.LE.EPS2 .AND. PI.LE.1-D@) GO TO 128 
TEMP = IB 168 WH = WH - 1.D8 
PS = @ ~ FLOATCIB) IF (CWH.LE.8.8D@) GO TO 12¢ 
IF (Q.EQ. TEMP) PS = 1.D8 IF (P1.LE.1-D@ «AND. CNT/EPS-LE.FINSUM) GO TO 128 
DP # P CNT = (PSeCeCNT)/ CDP+WH) 
De = Q IF (CNT.LE. 1+D@) GO TO 116 
PX = DP#*DLOGCY) C RESCALE 
PQ = DLGAMACDP+DQ) IB = IB‘~ 1} 
Pi = DLGAMACDP) CNT = CNT#*EPS) 


C = DLGAMACDQ) 
D4 = DLOGCDP) 
IF (Y.GT.EPS) GO TO 78 
SPECIAL CASE - X IS CLOSE TO @. OR I» 
XB = PX + PQ - D4 - Pl - C 
IF (XBeLE-ALEPS) GO TO 58 


118 PS = WH 
IF (IB.EQ.@) FINSUM = FINSUM ¢ CNT 
GO TO 188 

128 PROB = FINSUM + INFSUM 

138 IF CINT-EQ.8) GO TO 148 
PROB = 1.8 ~- PROB 


PROB = DEXP(XB) TEMP = P 

GO TO 138 P= Q 
DLGAMA IS A FUNCTION WHICH CALCULATES THE DOUBLE Q@ = TEMP 
PRECISION LOG GAMMA FUNCTION 1a4@ RETURN 
7@ XB = PX + DLGAMACPS+DP) - DLGAMACPS) - Da = Pl END 


SCALING 
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Incomplete Beta Ratio [$14] 
[O. G. Ludwig, Comm. ACM 6, 6(June 1963), 314] 


Malcolm C. Pike and Jennie SooHoo [Recd 5 March 1975 and 11 September 1975 ] 
School of Medicine, University of Southern California, 1840 North Soto Street, 
Los Angeles, CA 90032 


N. E. Bosten and T. J. Aird, International Mathematical and Statistical Libraries, 
Inc., 7500 Bellaire Blvd., Houston, TX 77036. 


This work was supported by the Virus Cancer Program, National Cancer Institute, Bethesda, 
Md., under Grant PO ICA 17054-01 and Contract N01-CP-53500. 


Algorithm 179 (MDBETA) can be improved as shown. 
1. Remove EPS2 from the double precision statement. 


2. Remove the data statement and comment: 


C ARBITRARILY SMALL NUMBER 
DATA EPS2/1.D —50/ 


3. Remove the three statements preceding statement number 100: 


P1 = (PS*C)/(DP+ WH —1.D0) 
XB=Pl*«CNT 
IF(XB.LE.EPS2.AND.P1.LE.1.D0) GO TO 120 


4, After statement number 100, replace the following statements: 


IF(P1.LE.1.D0.AND. CNT/EPS.LE.FINSUM) GO TO 120 
CNT = (PS+C*«CNT)/(DP+ WH) 
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with the following: 


PX = (PS+C)/(DP+ WH) 
IF(PX.GT.1.0D0) GO TO 105 


IF(CNT/EPS.LE.FINSUM .OR. CNT.LE.EPS1/PX) GO TO 120 
105 CNT =CNT+*PX 


The above changes eliminate the occurrence of underflow in the computation of 
FINSUM and decrease the execution time of the algorithm with no apparent 
change in accuracy. 


5. Remove the statements and comment: 


IF(Y.GT.EPS) GO TO 70 

C SPECIAL CASE — X IS CLOSE TO 0. OR 1. 
XB=PX+PQ-—D4—P1-C 
IF(XB.LE.ALEPS) GO TO 50 
PROB = DEXP(XB) 
GO TO 130 


6. Remove the statement number from: 


70 XB=PX+ DLGAMMA(PS+ DP) -DLGAMMA(PS) — D4—P1 


COLLECTED ALGORITHMS FROM CACM 


ALGORITHM 180 
ERROR FUNCTION—LARGE X 
Henry C. THacuer, JRr.* 
Argonne National Laboratory, Argonne, III. 
* Work supported by the U. 8S. Atomie Energy Commission. 


real procedure erfL(z); value z; real z; 
comment This procedure evaluates the error function of real 


a 
argument, erf(z) = (2/7) i em” du by the Laplace continued 
0 


fraction for the complementary error function: erf(z) = 1 — 
(1/(1-+v/ (1+20/(1+30/(1-+-++)))))/(/ aa e*”) where v = 1/ 
(2x7). Successive even convergents of the continued fraction are 
evaluated, using an algorithm suggested by Maehly, until the 
full accuracy of the arithmetic being used is attained. 

The continued fraction converges for all x > 0. For small z, 
however, convergence may be excessively slow, and overflow 
may occur. In this region, the Taylor series converges satis- 
factorily, and algorithms such as No. 123 are suitable. 

For « S 0, the procedure calls the global procedure alarm. 

The body of this procedure has been checked on the LGP-30 
computer, using the Dartmouth Self Contained Algol Processor. 
The program was used to tabulate erf(z) from 0.9(.1)5.0. The 
maximum error was 2 X 10%, which is explainable by roundoff 
errors. The number of convergents calculated ranged from 36 
for z = 0.9 to 2 forz 2 3.3. Overflow occurred for x = 0.87; 

begin integer m; real B min 2, B min 3, P, R, T, v, v2; 

if z < 0 then alarm; © 

vi=xX 2; 

T := —0.56418958/x/exp(v); 

comment The constant 0.56418958 --- = a ?, and should 
be given to the full accuracy required of the procedure; 


v i= 0.5/0; 
P=vXT; 
v2i=vX I; 
T:=T7T+1; 
m:t= 0: 


for m := m-+ 1 while T ¥ R do 

begin R := T; 

Bmin3:= 0X (m—1) * Bmin 3 + B min 2 
T := B min 2; 
Bmin2:=v*mxX Bmin2+ Bmin3; 
T := R — P/B min 2/T; 
P:=mX (m+1) X 02 x P 
end while; 
erfL := T 

end 


REMARKS ON: 
ALGORITHM 123 [815] 
REAL ERROR FUNCTION, ERF(z) 
(Martin Crawford and Robert Techo Comm. ACM 6 


(Sept. 1962), 483] 
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ALGORITHM 180 [815] 
ERROR FUNCTION—LARGE X 
[Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 314] 


ALGORITHM 181 [815] 
COMPLEMENTARY ERROR FUNCTION— 
LARGE X 

[Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 315] 


ALGORITHM 209 [S15] 
GAUSS 
[D. Ibbetson. Comm. ACM 6 (Oct. 1963), 616] 


ALGORITHM 226 [815] 
NORMAL DISTRIBUTION FUNCTION 
[S. J. Cyvin. Comm. ACM 7 (May 1964), 295] 


ALGORITHM 272 [815] 
PROCEDURE FOR THE NORMAL DISTRIBUTION 
FUNCTIONS 

[M. D. MacLaren. Comm. ACM 8 (Dec. 1965), 789] 


ALGORITHM 304 [S15] 

NORMAL CURVE INTEGRAL 
{I. D. Hill and 8. A. Joyce. Comm. ACM 10 (June 
1967), 374] - 


I. D. Hitt ann 8. A. Joyce (Recd. 21 Nov. 1966) 

Medical Research Council, 

Statistical Research Unit, 115 Gower Street, London 
W.C.1., England 


These algorithms were tested on the ICT Atlas computer using 
the Atlas ALGou compiler. The following amendments were made 
and results found: 


ALGORITHM 123 

(i) value z; was inserted. 

(ii) abs(T) < »—-10 was changed to Y— T= Y 
both these amendments being as suggested in [1]. 

(iii) The labels 1. and 2 were changed to L1 and L2, the go to 
statements being similarly amended. 

(iv) The constant was lengthened to 1.12837916710. 

(v) The extra statement xz := 0.707106781187 X x was made 
the first statement of the algorithm, so as to derive the 
normal integral instead of the error function. 

The results were accurate to 10 decimal places at all points 
tested except x = 1.0 where only 2 decimal accuracy was found, as 
noted in [2]. There seems to be no simple way of overcoming the 
difficulty [8], and any search for a method of doing so would 
hardly be worthwhile, as the algorithm is slower than Algorithm 
304 without being any more accurate. 


ALGORITHM 180 
(i) T := —0.56418958/2/erp(v) was changed to 
T := —0.564189583548 & exp(—v)/x. This is faster and also 
has the advantage, when »v is very large, of merely giving 0 
as the answer instead of causing overflow. 


COLLECTED ALGORITHMS (cont.) 


(ii) The extra statement z := 0.707106781187 * zx was made 
as in (v) of Algorithm 123. 
(iii) form :=m-+1 was changed to form := m+2. m+1 
is & misprint, and gives incorrect answers. 
The greatest error observed was 2 in the 11th decimal place. 


ALGORITHM 181 
(i) Similar to (i) of Algorithm 180 (except for the minus sign). 
(ii) Similar to (ii) of Algorithm 180. 
(iii) m was declared as real instead of integer, as an alternative 
to the amendment suggested in [4]. 
The results were accurate to 9 significant figures for z < 8, 
but to only 8 significant figures forz = 10 and z = 20. 


ALGORITHM 209 
No modification was made. The results were accurate to 7 decimal 
places. 


ALGORITHM 226 
(i) 10 T m/(480Xsqrt(2X3.14159265)) was changed to 
10 T m X 0.000831129750836. 
(ii) for 7 := 1 step 1 until 2 X n do was changed to 
m:=2Xn; fori := 1 step 1 until m do. 
(iii) —(@Xb/n) T 2/8 waschanged to —(iXb/n) T 2X 0.125. 
(iv) iff =2X%n-—1 waschanged to ift = m—1 
(v) b/(6XnXsqrt(2X3.14159265)) was changed to 
b/(15.0397696478X n). 


Tests were made with m = 7 and m = 11 with the following 
results: 


Number of significant 
jigures correct 


Number of decimal 
places correct 


x 
m= 7 m= 11 m= 7 m = 11 
—0.5 7 11 7 11 
~-1.0 7 10 7 10 
1.5 7 10 8 10 
—-2.0 7 1) 8 10 
—-2.5 6 9 8 11 
~-3.0 6 7 8 9 
—-4.0 5 7 10 11 
--6.0 2 1 12 10 
--8.0 0 0 11 9 


Perhaps the comment with this algorithm should have referred 
to decimal places and not significant figures. To ask for 11 sig- 
nificant figures is stretching the machine’s ability to the limit, 
and where 10 significant figures are correct, this may be regarded 
as acceptable. 


ALGORITHM 272 
The constant .99999999 was lengthened to .9999999999. 
The accuracy was 8 decimal places at most of the points tested, 
but was only 5 decimal places at z = 0.8. 
ALGORITHM 304 


No modification was made. The errors in the 11th significant figure 
were: 


180-P 2- 0 


abs(x) x > 0 = upper x > 0 # upper 
0.5 1 1 
1.0 1 2 
1.5 214(5) 2 
2.0 25° (0) 4 
3.0 0 0 
4.0 2 3 
6.0 6 0 
8.0 14 0 
10.0 23 0 
20.0 35 0 


* Due to the subtraction error mentioned in the comment section 
of the algorithm. Changing the constant 2.32 to 1.28 resulted in 
the figures shown in brackets. 


To test the claim that the algorithm works virtually to the 
accuracy of the machine, it was translated into double-length 
instructions of Mercury Autocode and run on the Atlas using the 
EXCHLF compiler (the constant being lengthened to 
0.398942280401432677939946). The results were compared with 
hand calculations using Table II of [5]. The errors in the 22nd 
significant figure were: , 


abs(x) x > 0 = upper x > 0 # upper 
1.0 2 3 
2.0 7 1 
4.0 2 0 
8.0 8 0 


Timings. Timings of these algorithms were made in terms of 
the Atlas “Instruction Count,” while evaluating the function 100 
times. The figures are not directly applicable to any other com- 
puter, but the relative times are likely to be much the same on 
other machines. 


INstRUCTION Count FoR 100 EvaLuaTIONS 


Algorithm number 


180 | 181 | 209 226 272 | 304° | 304> 


3.0 42 51 9 628 25 97 50 
4.0 27 39 9 9004 | 25 67 44 
6.0 15 30 6 14004 | 16 49 23 
8.0 9 28 7, | 21007 | 18 44 11 
10.0 10 25 5 27004 | 16 38 11 
20.0 9 22 5 65007 | 16 32 11 
30.0 9 9 5 | 10900? | 16 11 11 


COLLECTED ALGORITHMS (cont.) 


® Readings refer to x > 0 = upper. 

b Readings refer to x > 0 # upper. 

¢ Time to produce incorrect answer. A count of 120 would fit a 
smooth curve with surrounding values. 

4400 times Instruction Count for 1 evaluation. 


Opinion. There are advantages in having two algorithms 
available for normal curve tail areas. One should be very fast and 
reasonably accurate, the other very accurate and reasonably 
fast. We conclude that Algorithm 209 is the best for the first 
requirement, and Algorithm 304 for the second. 

Algorithms 180 and 181 are faster than Algorithm 304 and may 
be preferred for this reason, but the method used shows itself in 
Algorithm 181 to be not quite as accurate, and the introduction 
of this method solely for the circumstances in which Algorithm 
180 is applicable hardly seems worth while. 


Acknowledgment. Thanks are due to Miss I. Allen for her 
help with the double-length hand calculations. 
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ALGORITHM 181 

COMPLEMENTARY ERROR FUNCTION— 
LARGE X 

Henry C. THACHER, JR.* 

Argonne National Laboratory, Argonne, Ill. 
* Work supported by the U. S. Atomic Energy Commission. 


real procedure erfcL(z); value z; real z; 
comment This procedure evaluates the complementary error 
function, erfe(z) = 1 — erf(z) = (2/Vz) fPexp(—w)du by 
the Laplace continued fraction: 
erfe(a) = (1/(L+v/(1+20/(1+30/(1+-++)))))/(W ma e#) 
where v = 1/(2z?). Successive even convergents of the continued 
fraction are evaluated, using an algorithm suggested by Maehly, 
until the full accuracy of the arithmetic being used is attained. 
The continued fraction converges for all z > 0. For small z, 
however, convergence may be excessively slow, and overflow 
and round-off accumulation may occur. In this region, the 
Taylor series converges satisfactorily. 
For x = 0, the procedure calls the global procedure alarm. 
The body of this procedure has been checked on the LGP-30 
Computer, using.the Dartmouth Self Contained Algol Processor, 
for x = 1.2(0.1)5.0. Results were generally correct to 1 in the 
6th significant digit, although a few errors were as large as 6 
in that digit. The errors are believed to be due to round-off 
only. The number of convergents calculated ranged from 46 
forz = 1.2 to 10 for x = 5.0. 
Overflow occurred for x = 1.183; 
begin integer m; real B min 2, B min 3, P, R, T, v, v2; 
if z < 0 then alarm; 
vis 2X 2; 
T := 0.56418958/z/exp(v); 
comment The constant 0.56418958 --- = ma, and should be 
given to the full accuracy required of the procedure; 
0.5/0; 


for m:=m-+2 while & #~ T do 

begin R := T; 

Bmin3:= 0X (m—-1) X Bmin3 + B min 2; 
T:= Bmin2; 
Bmin2:=vXmX Bmin2+ Bmin 3; 
T:= R — P/B min 2/T; 
P:=mX (m+1) X 2X P 

end while; 

erfe L:= T 


end 


CERTIFICATION OF ALGORITHM 181 [S15] 

COMPLEMENTARY ERROR FUNCTION—LARGE 

X [Henry C. Thacher, Jr., Comm. ACM 6 (June 1963), 
315] 

I. Cuausen anp L. Hansson (Recd. 20 Aug. 1964) 

DAKC, Ris¢g, Denmark. 
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The procedure erfcl, was tested in GieR-ALGOL with 29 signifi- 
cant bits and the number-range abs (xr) < 2 7 512 (approx. 1.310154). 
The statement m := R := 0; was corrected tom := 0; R := 
0; [Because m and RF are of different type; cf. Sec. 4.2.4 of the 
ALGoL Report, Com*h. ACM 6 (Jan. 1963), 1-17.—Ed.] After this 
the tests were successful. The procedure was checked a.o. for 
x = 1.19 (—0.01) 0.72. The differences from table values increased 
from 10—8 at x = 1.1 to 710—8 at xz = 0.75. Overflow occurred at 
x = 0.71. 


REMARKS ON: 

ALGORITHM 128 [815] 

REAL ERROR FUNCTION, ERF(z) 
[Martin Crawford and Robert Techo Comm. ACM 6 
(Sept. 1962), 483] 


ALGORITHM 180 [815] 
ERROR FUNCTION—LARGE X 
{Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 314] 


ALGORITHM 181 [815] 
COMPLEMENTARY ERROR FUNCTION— 
LARGE X 

{Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 315] 


ALGORITHM 209 [S15] 
GAUSS 
[D. Ibbetson. Comm. ACM 6 (Oct. 1963), 616] 


ALGORITHM 226 [815] 
NORMAL DISTRIBUTION FUNCTION 
[S. J. Cyvin. Comm. ACM 7 (May 1964), 295] 


ALGORITHM 272 [S15] 
PROCEDURE FOR THE NORMAL DISTRIBUTION 
FUNCTIONS 

[M. D. MacLaren. Comm. ACM 8 (Dec. 1965), 789] 


ALGORITHM 304 [S15] 

NORMAL CURVE INTEGRAL 
(I. D. Hill and S. A. Joyce. Comm. ACM 10 (June 
1967), 374] 


I. D. Hitt anv S. A. Joyce (Recd. 21 Nov. 1966) 

Medical Research Council, 

Statistical Research Unit, 
W.C.1., England 


115 Gower Street, London 


These algorithms were tested on the ICT Atlas computer using 
the Atlas ALGou compiler. The following amendments were made 
and results found: 


ALGORITHM 123 
(i) value x; was inserted. 
(ii) abs(T) < »—-10 was changed to Y- T= Y 
both these amendments being as suggested in [1]. 


COLLECTED ALGORITHMS (cont.) 


(iii) The labels 1 and 2 were changed to L1 and L2, the go to 
statements being similarly amended. 

(iv) The constant was lengthened to 1.12837916710. 

(v) The extra statement xz := 0.707106781187 * x was made 
the first statement of the algorithm, so as to derive the 
normal integral instead of the error function. 

The results were accurate to 10 decimal places at all points 
tested except x = 1.0 where only 2 decimal accuracy was found, as 
noted in [2]. There seems to be no simple way of overcoming the 
difficulty [3], and any search for a method of doing so would 
hardly be worthwhile, as the algorithm is slower than Algorithm 
304 without being any more accurate. 


ALGORITHM 180 
(i) T := —0.56418958/x/exp(v) was changed to 
T := —0.564189583548 X exp(—v)/x. This is faster and also 
has the advantage, when »v is very large, of merely giving 0 
as the answer instead of causing overflow. 
(ii) The extra statement x := 0.707106781187 X x was made 
as in (v) of Algorithm 123. 
(iii) for m:= m-+1 was changed to form :=m-+2. m+1 
is a misprint, and gives incorrect answers. 
The greatest error observed was 2 in the 11th decimal place. 


ALGORITHM 181 
(i) Similar to (i) of Algorithm 180 (except for the minus sign). 
(ii) Similar to (ii) of Algorithm 180. 
(iii) m was declared as real instead of integer, as an alternative 
to the amendment suggested in [4]. 
The results were accurate to 9 significant figures for x < 8, 
but to only 8 significant figures for z = 10 and x = 20. 


ALGORITHM 209 
No modification was made. The results were accurate to 7 decimal 
places. 


ALGORITHM 226 
(i) 10 T m/(480Xsqrt(2X3.14159265)) was changed to 
10 fT m X 0.000831129750836. 
(ii) for 7 := 1 step 1 until 2 X n do was changed to 
m:=2Xn; fori := 1 step 1 until m do. 
(ili) —(txXb/n) fT 2/8 waschanged to —(ixXb/n) fT 2 X 0.125. 
(iv) iff =2%Xn-—1 waschanged to ifi = m-—1 
(v) b/(6XnXsqrt(2X3.14159265)) was changed to 
b/(15.0897696478 Xn). 
Tests were made with m = 7 and m = 11 with the following 
results: 


Number of decimal 
places correct 


Number of significant 
figures correct 


zt al 
m= 7 m= 11 m= 7 m= ll 
—0.5 7 11 7 11 
—1.0 7 10 7 10 
—1.5 7 10 8 10 
—2.0 7 9 8 10 
—2.5 6 9 8 11 
—3.0 6 7 8 9 
—4.0 5 7 10 11 
—6.0 2 1 12 10 
—8.0 0 0 il 9 


Perhaps the comment with this algorithm should have referred 
to decimal places and not significant figures. To ask for 11 sig- 
nificant figures is stretching the machine’s ability to the limit, 
and where 10 significant figures are correct, this may be regarded 
as acceptable. 
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ALGORITHM 272 
The constant .99999999 was lengthened to .9999999999. 

The accuracy was 8 decimal places at most of the points tested, 
but was only 5 decimal places at x = 0.8. 


ALGORITHM 304 
No modification was made. The errors in the 11th significant figure 
were: 


abs (x) x > 0 = upper x > 0 # upper 
0.5 1 1 
1.0 1 
1.5 ; 219(5) 2 
2.0 25°(0) 4 
3.0 0 0 
4.0 2 3 
6.0 6 0 
8.0 14 0 
10.0 23 0 
20.0 35 0 


* Due to the subtraction error mentioned in the comment section 
of the algorithm. Changing the constant 2.32 to 1.28 resulted in 
the figures shown in brackets. 

To test the claim that the algorithm works virtually to the 
accuracy of the machine, it was translated into double-length 
instructions of Mercury Autocode and run on the Atlas using the 
EXCHLF compiler (the constant being lengthened to 
0.398942280401432677939946). The results were compared with 
hand calculations using Table II of [5]. The errors in the 22nd 
significant figure were: 


abs(x) x > 0 = upper x > 0 = upper 
1.0 2 3 
2.0 7 1 
4.0 2 0 
8.0 8 0 


Timings. Timings of these algorithms were made in terms of 
the Atlas “Instruction Count,” while evaluating the function 100 
times. The figures are not directly applicable to any other com- 
puter, but the relative times are likely to be much the same on 
other machines. 


COLLECTED ALGORITHMS (cont.) 


Instruction Count ror 100 EvaLuATIONS 


Algorithm number 
abs (x) oie i | 
123 | 180 | 181 |; 209 226 272 | 304° | 304> 
m= 7 
0.5 58 8 97 24 25 24 
1.0 65° 8 176 24 29 29 
1.5 | 164 | 128 | 127 9 273 25 35 35 
2.0 | 194 78 90 8 | 387 24 39 39 
2.5 | 252 54 68 10 515 24 131 44 
3.0 42 51 9 628 25 97 50 
4.0 27 39 9 9004 | 25 67 44 
6.0 15 30 6 14004 | 16 49 23 
8.0 9 28 7 21007 | 18 44 11 
10.0 10 25 5 27007 |) 16 38 11 
20.0 9 22 5 65004 | 16 32 11 
30.0 9 9 5 | 10900¢ | 16 11 11 


* Readings refer to x > O = upper. 

» Readings refer to x > O # upper. 

* Time to produce incorrect answer. A count of 120 would fit a 
smooth curve with surrounding values. 

4100 times Instruction Count for 1 evaluation. 


Opinion. There are advantages in having two algorithms 
available for normal curve tail areas. One should be very fast and 
reasonably accurate, the other very accurate and reasonably 
fast. We conclude that Algorithm 209 is the best for the first 
requirement, and Algorithm 304 for the second. 

Algorithms 180 and 181 are faster than Algorithm 304 and may 
be preferred for this reason, but the method used shows itself in 
Algorithm 181 to be not quite as accurate, and the introduction 
of this method solely for the circumstances in which Algorithm 
180 is applicable hardly seems worth while. 


Acknowledgment. Thanks are due to Miss I. Allen for her 
help with the double-length hand calculations. 
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ALGORITHM 182 

NONRECURSIVE ADAPTIVE INTEGRATION 
W. M. McKreman anp Larry TESLER 

Stanford University, Stanford, Calif. 


real procedure Simpson(F) limits : (a, b) tolerance : (eps); 
real procedure F; real a,b, eps; valuea, b, eps; 
begin comment A nonrecursive translation of Algorithm 145. 
Note that the device used here can be used to simulate recursion 
for a wide class of algorithms; 
integer lvl; 
switeh return := 11, r2, 73; 
real array dx, epsp, x2, x3, F2, F3, F4, Fmp, Fbp, 
est2, est3 [1:30], pval[1:30, 1:3]; 
integer array rirn [1:30]; 
real absarea, est, Fa, Fm, Fb, da, sx, estl, sum, F1; 
comment the parameter setup for the initial call; 
lul := absarea: = est:=0; da:=b—<a; 


Fa:= F(a); Fm := 4.0 X F((a+b)/2.0); Fb := F(b); 
recur: 

lul:= ll +1; dell] := da/3.0; 

sx := dz[lvl]/6.0; Fl:= 4.0 X F(a+dz[lvl]/2.0); 


x2[lvl] := a + daf[ll]; F2[lvl] := F(x2[lvl)); 
x3[lvl] := x2{[lvl] + dz[lol]; F3{lvl] := F(28[lvl)); 
epsp[lvl] := eps; FA4[ll] := 4.0 & F(x3[lvl]+dz[lvl]); 
Fmpllol] := Fm; estl := (Fa+F1+F2[lvl]) « sa; 
Fop{lvl] := Fb; est2[lvol] := (F2[lvl]+F3[lolj+Fm) X sz; 
est3[lol] := (F3[lvlJ+F4[lvl]+Fb) X sz; 

sum := estl + esi2[lvl] + est3[lol]; 
absarea := absarea — abs(est) + abs(estl) + abs(est2[Ivl]) + 

abs (est3[lvl]); 
if (abs(est—sum) < epsp[lvl] X absarea) \V (Wvl>30) then 
begin comment done on this level; 

up :lol:= ll — 1; 

pral[lvl, rirn{(lol]] := sum; 

go to return [rtrn[lol]] 
end; 
rirn(lvl] := 1; da := dzllol]; Fm := F1; 
Fb := F2{lolj; eps >= epspllvl]/1.7; est := est; 
goto recur; rl: 
rirn(lol] := 2; da:= dz[lvl]; Fa:= F2[lvl]j; 
Fm := Fmpllol); Fb := F8{[lvl]; eps := epsp[lvi]/1.7; 
est := est2[lul]; a@:= x2[lvl]; goto recur; 12: 
rirn{lvl] >= 3; da:= dzllvlj; Fa:= F3{lvl]}; 
Fm := FA[lol]; Fb := Fbp[lelj; eps := epsp[lvl)/1.7; 
est >= esi3[lvl]; a: = 28[lvl]; goto recur; 13: 

sum := pval[lvl, 1] + pvral{lol, 2] + pval{lvl, 3); 
if lvl > 1 then goto up; 

Simpson := sum 

end Simpson 


CACM 
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CERTIFICATION OF ALGORITHM 182 

NONRECURSIVE ADAPTIVE INTEGRATION [W. 
M. McKeeman and Larry Tesler, Comm. ACM 6 (June 
1963), 315] 

Haro. 8S. Butuer (Recd 8 Nov. 1963; rev. 6 Dec. 1963) 

Stanford Linear Accelerator Center, Stanford, Calif. 


A Ba.eou transliteration of Simpson has been prepared at 
Stanford by its authors and it has been used in a number of prob- 
lems involving numerical integration. Its value was most strik- 
ingly displayed when it was utilized in a triple integral in which 
the final integration was over a strongly peaked function that 
spanned seven orders of magnitude. Simpson effectively minimized 
the number of evaluations and completed ‘the integration five 
times faster than alternate schemes to subdivide the region of 
interest. The values of the integral agreed with independent 
calculations well within the required tolerance. 

The following changes should be made to the published 
algorithm: 


Line 13 should be changed to: 
ll := 0; absarea := est := 1.0; da:= b—a; 
Line 17 should read: 
sg := dz[lvl]/6.0; F1l:= 4.0 * F(a + dzflvl]/2.0); 
Line 20 should read: 
epsp(lul] := eps; FA[lvl]} := 4.0 X F(2z8[lvl] + dz[lvl]/2.0); 
The condition of line 27 should be changed to: 
if ((abs(est—sum) S epsp[lvl] x absarea) /\ (est ~ 1.0)) V 
(lul = 30) then 
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ALGORITHM 183 

REDUCTION OF A SYMMETRIC BANDMATRIX 
TO TRIPLE DIAGONAL FORM 

H. R. Scuwarz 

Swiss Federal Institute of Technology, Ziirich, Switzer- 
land 


procedure bandred(a, n, m); 
value n, m; integer n,m; array a; 

comment bandred reduces a real and symmetric matrix of band 
type (order n, ali, k]=0 for |j—k|>m) by a sequence of orthog- 
onal similarity transformations to triple diagonal form. The 
procedure represents a generalization of the algorithm m21 by 
H. Rutishauser. Due to symmetry only the upper part of the 
band matrix must be given and these elements are denoted for 
convenience in the following way: a[z, 0] ((=1, 2, ---, n) repre- 
sents the diagonal element in the 7th row, and ali, k] (¢=1, 2, 
--+,n—k and k=1, 2, ---, m) represents the generally nonzero 
element in the ith row and the kth position to the right of the 
diagonal. After completion of the reduction, the elements of the 
symmetric triple diagonal matrix are given by aft, 0] (¢=1, 2, 
+++, n) and aft, 1] (¢=1, 2, ---,n—1); 

begin integer7,k,7,j,p,rr; real 6,9, ¢, 8, 2, 82, cs, u, 0; 
for r:= mstep —1 until 2 do 


begin 
for k := 1 step 1 until nr do 
begin 
for j := k step r until n—r do 
begin 


comment This compound statement describes the rota- 
tion involving the 7th and (7+1)st rows and columns 
in order to reduce either a[j, r] or the off-band element 
g to zero, respectively. This rotation produces a new 
off-band element g (in general different from zero) pro- 
vided i +r < n; 

if ; = & then 

begin if a[j, r] = 0 then go to endk; 


b:= —ali, r—1)/afy, r] 

end 

else 

begin if g = 0 then go to endk; 
b:= —alj—1, rl/g 

end; 


8 i= l/sgri(l + bXb); c:=b xX 8; 
c2:=cXc; s2i:=sX scsi=ex 3; 
ti=ejg+tr-l; 
cross elements: 
u i= c2 X alt, 0] — 2 X cs X aft, 1] + 82 X alt + 1, 0); 
vi:= s2 X alt, 0] + 2 X cs X alz, 1] + c2 X afi+1, 0]; 
ali, 1] := cs X (a[z, 0] — afi+1, 0]) + (c2—s82) Xalz, 1); 
a[z, 0] >= u; af¢+1, 0] := 9; 
column rotation: 
for p := j step 1 until 7 — 1 do 
begin 
u:i=c X alp,i—p] — 8 X alp, i—pt+l); 
alp, i—p+1] := 8 X alp, i—p) +. ¢ X alp, t—v +1); 
alp, i—p] := u 
end 37; 
if 7 * k then 
alfj—1,r]:=e¢ X alj—-1,r] —8 X g; 
row rotation: 
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rr:= ifr <n —ithenrs elsen — 1; 
for p:= 2 step 1 until rr do 
begin 
u:=cX ali, p] — s X aft+1, p—1); 
alit+1, p—1]:= 8 X alt, p] +e X alt+1, p—1); 


alt, p) := u 
end 7; 
if i+r<nthen 
new-g: begin g:= —s X alt-+1, rj; 
afi+1,r]:= ec X alz+1, r] 
end 
end j; 
endk: end k 


end r 
end bandred 
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ALGORITHM 184 

ERLANG PROBABILITY FOR CURVE FITTING 
A, CoLKER 

U.S. Steel Applied Research Laboratory 

Monroeville, Penn. 


procedure ERLANG (X, XO, M, VARS, C, FACTORIAL, P); 
value XO, M, VARS, C;' integer C; real array X, P; 
integer procedure FACTORIAL; 
comment Computes the Erlang probability for the 7th interval 
by So f@)dx — fo‘ f@w)dx where f(z) = + [(Ku)*/(K—-1)!] 
*(t—29)*—1e-X#@—*0) where » = 1/M, K = (M—X»)*VARS is 
the upper boundary for the class intervals, Xo is the lower 
boundary of the first class interval, M@ is the mean of the Er- 
lang, VARS is the variance corrected by Sheppard’s correction, 
C is the number of class intervals and P; is the calculated 
probability; 
begin 
integer 1,J,K,F; real array XE[0: C]; 
for I := 1 step 1 until C do 
XE{I] := X[Z] — XO; 
XE[0) := 0; 
ME := M — XO; 


K := 0.5 + (ME{2)/VARS; 
U := K/ME; 
SP 0; 
for J := 1 step 1 until C do 
begin 
SUM1 := 0; 
SUM2 := 0; 
for J. := 0 step 1 until K — 1 do 
begin 


F := FACTORIAL (J); 
Z1:= UX XE{l-1]); 
SUM1 := SUM1 + (Z1f/)/F; 
Z22:= UX XEN); 
SUM2 := SUM2 + (Z2t/)/F; 
end J; 
P(I] := SUM1 & (EXP(—UXXE[I-1])) — SUM2 
x (EXP(—-UXXE[I))); 
SP := SP + P[I); 
end I; 
P(C+1] := 1.0 — SP; 
end Erlang 
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ALGORITHM 185 

NORMAL PROBABILITY FOR CURVE FITTING 
A, COLKER 

U.S. Steel Applied Research Laboratory 

Monroeville, Penn. 


procedure NORMAL (X, M, VARS, C, HASTINGS, P); 

value M, VARS, C; integer C; real array X, P; 

real procedure HASTINGS; 

comment Computes the normal probabilities for the 7th interval 
by f 0 f(a)dx — | f(x)dx where f(x) is Hastings’ approxi- 
mation to the normal interval. Hastings’ formula is 


(Xai) = F{1— (+a XnitaaX ni taaX ns taaX nitasX ni) >] 


where ai = 0.09979268, a2 = 0.04432014, a; = 0.00969920, 
a, = —0.00009862, and as = 0.00058155. The X,; are normalized 
boundary values of X; where Xn: = (X:i—M)/»/V ARS, where 
M is the mean and V ARS is the variance corrected by Sheppard’s 
correction, Cis the number of class intervals and P; the calcu- 
lated probability; 
begin 
integer I; real array XN[1: C]; 
for I := 1 step 1 until C do XN[I] := (X[I|—M)/SQRT(V ARS); 
P\\| := 0.6 — HASTINGS (ABS(XN(1))); 
for I := 2 step 1 until C do _ 
begin 
if 
XN(I| < 0 then 
P(I] := HASTINGS (ABS(XN{I-1])) — HASTINGS 
(ABS(XN[I])); else 
begin 
if (XN[I]>0) A (XN[I—1]<0) 
then P{I]) := HASTINGS (XN{I]) + HASTINGS 
(ABS(XN[I-—1])); else 
PUI) := HASTINGS (XN[I}) — HASTINGS (XN{I-1)); 
end; 
end [; 
P[C+1] := 0.5 — HASTINGS (XN[C}); 
end NORMAL 
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ALGORITHM 186 

COMPLEX ARITHMETIC 

R. P. van ve Riser 

Mathematical Centre, Amsterdam, Holland 


procedure Complex arithmetic (a, b, R, r); value a, b; array 
a, b, R, r; 
comment This procedure assigns the value a? + 6? to R and the 
value (a-+7b)/(a—ib) to r, where a, b, R and r are complex 
numbers. These two arithmetic expressions are of course fully 
arbitrary. They serve only to demonstrate the use of the pro- 
cedures P,Q, S, T, J and U. With them one can build up any 
arithmetic expression with complex variables, as easily as one 
can form them with real variables in AL@ou 60 (As one sees 
immediately these procedures can easily be extended for use in 
quaternion arithmetic or general vector and tensor calculus). 
We focus attention tothe value call of the procedure-parameters, 
which is essential. Furthermore, we notice that the depth or 
height of the accumulator H is the number of right-handed 
brackets placed one after another not counting the brackets 
which occur in parameter-delimeters. It is perhaps superfluous to 
mention that this procedure was tested on the X1 computer of the 
Mathematical Centre.; 
begin integer i,k; array H[1:4,1:2]; 
integer procedure P(i,j); value, 7; integer (, j; 
comment FP forms the product of the ith and jth element of H; 
begin reala; k:=k —1; a:= Afi, 1] X Hf[j,1] — Afi, 2] 
X Aly, 2); lk, 2] := Ali, 1] X Als, 2] + Ht, 2] x 
Afj, 1); Hk, 1j:=a; P:=k 
end; 
integer procedure Q(¢, 7); valuez, 7; _ integer i, j; 
comment Q forms the qvotient of the ith and jth element of H; 
begin reala,b; k:=k—1; 6 := Alj,1]) 2+ Aly, 2] f 2; 
a:= (Aft, 1X Ai, +t, 2]x Af, 2])/b; 
H{k, 2] := (Alt, 2)X Aly, 1]—Alt, 1x AU, 2))/b; 
Alk,1):=a; Q:=k 
end; 
integer procedure S(i, 7); value7,j; integer /, j; 
comment S forms the sum of the 7th and jth element of H; 
begin k := k — 1; Alk, 1] := Ali, 1] + Aly, 1); 
Alk, 2) := Alt, 2]+ Aly, 2]; S:=k 
end; 
integer procedure 7'(a); | array a; 
comment fT assigns to the k+1th element of H the complex 
variable a; 
begink :=k +1; Alk, 1] := afl]; Ak, 2] := a[2]; 
end; 
integer procedure J(i, expi); integer?; real expt; 
comment J assigns to the (k+1)th element of H a complex 
variable which is decomposed in real and imaginary part;. 
begin k :=k +1; i:=1; Hk, 1] := exp; i := 2; 
H{k, 2] :=-exy; 
J :=k 
end; 
procedure.U(i, 2); valuet; integer7; array £; 
comment U assigns to & the ith element of H; 
begin R[1] := Ali, 1]; Rl2] := Ali, 2]; k:=0 end ; 
k :=0; U(S(P(P(a))times:(T (@)))plus:(P(T(6))times: 
(T(b))), BR); 


T :=k 
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comment. (aXa) + (Xb) =:R; U(Q(S(T(@)) plus: 
(P(J(i, i—1)) times: (7'(6)))) divided by: (S(T(@)) 
plus: (P(/(i, 1—7)) times: (T(6)))), r); 
comment (a+(iXb))/(@+(—tXb)) =:7; 
end Complex Arithmetic; 


The contents of this Algorithm are published in the Technical 
Note TN 27, Mathematical Centre, Nov. 1962. 
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ALGORITHM 187 

DIFFERENCES AND DERIVATIVES 
R. P. van DE RIEtT 

Mathematical Centre, Amsterdam, Holland 


begin realh; integert,k; array A[l : 50]; 
comment This program calculates, only to demonstrate the 
procedures DELTA and DER, the third derivative of the expo- 
nential function with a sixth order difference scheme. We do 
not propose to use these procedures in actual calculations, for 
as we observed with the X1 computer of the Math. Centre, they 
work, but very slowly as a consequence of the strong recursive- 
ness of the procedures. In actual programming one has to take 
the trouble to write out the well-known formula of Gregory, or 
for higher derivatives to multiply this formula a number of 
times by itself, then one has to collect the same function-values. 
All this trouble is taken over by the computer if one uses the 
procedures described below. My purpose, however, in publishing 
these procedures lies not in the numerical use but in a demon- 
stration of the flexibility of ALGou 60, if one uses the recursive- 
ness property of procedures.; 
real procedure SUM (i, h, k, ti); value k; integer i, k, h; 
real i; 
begin reals; s:=0; fori:=hAstepluntilkdos:=s+t; 
SUM :=s 
end; 
real procedure DELTA (N,k,k0, fk); value N,k0; real fk; 
integer N, k, k0; 
comment WN is the order of the forward difference which is 
calculated. from a set of function-values with equidistant 
parameter-values; 
begin integer 7; 
DELTA :=if N =1 
then SUM (k, k0, kO+1, (—1)t(&+1—k0) xfk) 
else DELTA (1,7,k0, DELTA (N-1, k, 4, fk)) 
end; 
real procedure DER (OR, N,h,k,k0, fk); value OR, N,h, k0; 
real fk, h; 
integer OR, N, k, k0; 
comment OR is the order of the derivative, calculated from a 
given set of function-values f(k), with equidistant parameter- 
values, the error is of the order h Tf (N+1-—OR), where h is the 
steplength. k0 is the point where the derivative is calculated; 
begin integer 7; 
DER := ifOR =1 
then SUM(i, 1, N, DELTA (i, k, k0, fk) 
X(-1)TG+1)/t)/h 
else DER(i, N+1—OR, h, 1, k0, DER(OR—1, N-1, h, 
k, t, fk)) 
end; 
for i := 1 step 1 until 50 do A[z] : 
for 1 := 1 step 1 until 25 do A[t] : 
end 


exp (t/50) ; 
DER(3, 6, .02, k, 7, A[k]) 


The contents of this Algorithm are published in the Technical 
Note TN 27, Mathematical Centre, Nov. 1962. 
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ALGORITHM 188 

SMOOTHING 1. 

¥, Roprievez-Gin 

Central University, Caracas, Venezuela 


procedure Smooth 13(n, 2); 

integer n; 

real array x; 

comment This procedure uses Gram’s first-degree three-point 
formulas, as described in Hildebrand’s ‘Introduction to Nu- 
merical Analysis,’ Ch. 7, to smooth a series of n equally spaced 
values. If the procedure is entered with less than three points, 
control is transferred to a nonlocal label error; 

begin real array xp[1 : 7]; integer 7; 
ifn < 3 then go to error; 
for 7 := 1 step | until n do xp[i] := 2{z]; 
x{1] := 0.83333333 x xp[1] + 0.33333333 x xp[2] — 0.16666667 


XxX xp[3); 

for 2 := 2 step 1 until n — 1 do a{t] := (xp{i—1]+2p[i] 
+ xpli+1]) X 0.33333333; 

z[n}] := — 0.16666667 < xp[n—2] + 0.33333333  xp[n—1] 


+ 0.83333333 & xp[n] 
end Smooth 13 
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ALGORITHM 189 

SMOOTHING 2 

F. Ropriegugz Gin 

Central University, Caracas, Venezuela 


procedure Smooth 35(n, x); 
integer 7; 
real array x; 
comment This procedure is similar to Smooth 13, except that 
Gram’s third-degree five-point formulas are used, and that a 
minimum of five points is needed for a successful application; 
begin real array xp[l1:n]; integer 7; 
ifn < 5then go to error; 
for 7 := 1 step 1 until n do zpli]:= z[2]; 
x{1] := 0.98571429 < xp[1] + 0.05714286 xX (xp[2]+-zp[4)) 
— 0.08571429 X ap[3] — 0.01428571 x xp[5]; 
2{2] := 0.05714286 xX (xp[i]+axp[5]) + 0.77142857 x xp[2] 
+ 0.34285714 X ap[3] — 0.22857148 x xp[4]; 
for? := 3step 1 until n — 2 do z{7] :-= — 0.08571429 & (cp[i—2] 
+zplt+2]) + 0.34285714 < (ep[i—1]+ap[i+1]) + 0.48571429 
x xplt); 


z{n—1] := 0.05714286 xk (xp[n—4]+ap[n]) — 0.22857143 
X xp[n—3] + 0.34285714 & xp[n—2] + 0.77142857 = xp[n—1]; 
a[n] := — 0.01428571 xX xp[n—4] + 0.05714286 x (xp[n—3] 


+ap[n—1]) — 0.08571429 x xp[n—2] + 0.98571429 x xp[n] 
end Smooth 35 
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ALGORITHM 190 
COMPLEX POWER 
A. P. Rewru 


The English Electric Co. Ltd., Whetstone, England 


procedure Complex power (a, b,c,d,n,2,y); valuea, b,c, d, n; 
reala,b,c,d,z,y; integer 7; 
comment This procedure calculates (x+iy) = (a-+ib) fT (c+id) 
where 7 is the root of —1. In the complex plane, with a cut along 
the real axis from 0 to — ©, p is the sum of the principal value 
of the argument of (a+7b) and 2nm (n is positive, negative or 
zero depending on the solution required). arctan is assumed to 
be in the range —2/2 to 1/2. The case n = 0, d = 0 is given by 
Algorithm 106; 
begin real p,r,v, w; 
if a = 0 then begin if b = 0 then begin « := y := 0; 
go to L end 
else p := 1.57079633 xX 
(sign(b) +4><n) 
end 
else begin p := 6.28318532 & » + arctan(b/a); 
ifa < 0 then begin if b = 0 then 
p := p + 3.14159265 
else 
p: 
end 


p — 3.14159265 


end; 
5 X In(af2+bf2); v:= eX ptd xr; 
exp(eXr—dX p); 
wX cos(v); y:= wx sin(v); 


r 
Ww 
uw: 


L: end 
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ALGORITHM 191 

HYPERGEOMETRIC 

A. P. Revpx 

The English Electric Co. Ltd., Whetstone, England 


procedure Hypergeometric (al, a2, b1, 62, cl, c2, zl, 22) Results: 
(sl, s2); value al, a2, b1, 62. cl. c2, 21, 22; real al, a2, b1, 62, 
cl, c2, 21, 22, sl, s2; 
begin comment calculates the hypergeometric function 
1F2(a, b, c, z) with complex parameters (a=al+ia2, 
etc); 
real d, yl, y2; integer n; 
procedure comp mult (al, a2, 61, 62, cl, c2); value al, 
a2, 61,62; real al, a2, 61, 62, cl, c2; 
begin comment calculates the product of the two 
complex numbers (al+ia2) and (b1+7b2) 
where 7 is the root of —1; 
cl := al X b1 — a2 X b2; c2 := a2 X B11 + 
al X 62 
end; 
sl:=yl:=1; s2:= y2:=0; 
for n := 1 step 1 until 100 do 
begin d :=  X ((cl+n—1)12+c212); 
comp mult (al+n—1, a2, yl/d, y2/d, yl, y2); 
comp mult (yl, y2, bl+n—1, 62, yl, y2); 
comp multi (y1, y2, cl4+n—1, —c2, yl, y2); 
comp mult (yl, y2, 21, 22, yl, y2); 
if sl = sl + yl As2 = s2 + y2 then go to L; 
sl := sl + yl; 82 := s2 + y2 


CERTIFICATION OF ALGORITHMS 191 AND 192 

HYPERGEOMETRIC AND CONFLUENT HYPER- 
GEOMETRIC [A. P. Relph, Comm. ACM 6 (July 
1963), 388] 

Henry C. THacuer, Jr.* (Recd 2 Dec. 1963) 


Argonne National Laboratory, Argonne, III 
* Work supported by the U.S. Atomic Energy Commission. 


The bodies of these two procedures were transcribed for the 
Dartmouth Scaup processor for the LGP-30 computer. No syn- 
tactical errors were found, and the programs gave results agreeing 
within roundoff (7D) with tabulated values for the following spe- 
cial cases: of; (0.5, 0.5; 15k?) = (2/7) K(k); 2F1(0.5, —0.5;1;42) = 
(2/7) E(k) where K and E are complete elliptic integrals of the first 
and second kinds; :F1(.5; 1; ¢y) = Jo(x), and with ,F,(—1; 0.1; x); 
iF, (—0.5; 0.1; 2), and i1F1(—0.5; 0.5; 2). 

It should be observed that the function calculated by 191 is 
2F1(a, b; c; z), not 1F2(a, b; c; z) as stated in the comment. These 
programs evaluate the functions by direct summation of the hy- 
pergeometric series. They are, therefore, relatively general, but 
inefficient. Precautions must also be taken against attempting to 
compute outside the range of effective convergence of the series. 
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Certification and Remark on Algorithm 191 [S22] 
Hypergeometric [A.P. Relph, Comm. ACM 6 (July 
1963), 388] 


Henk Koppelaar (Recd. 14 Sept. 1973) Physical Labora- 
tory, Division: Atom Physics, Utrecht State University, 
Utrecht, The Netherlands . 


The following changes were made in the algorithm: 
(a) The subroutine for complex multiplication was erased. 
(b) In accordance with (a) and with the standard notation 2Fi, the 
heading and end of the procedure were:changed to read 
real procedure hyp2geom1 (a, b, c, z); 
end hyp2geom|. 
(c) Erasing the subroutine for complex multiplication caused us to 
modify the algorithm further as follows. 
real procedure iy p2geom| (a, b, c, z); 
value a, bc, z; real a, b, c,z; 
begin 
real s,y; integer i; 
= y:=1; 
for i := 0 step 1 until 100 do 
begin 
yi=y XK ((atd/(et+i)) X (6+) X z/G+)); 
ifs = s + ythen goto exit;}s:=s + y 

end; 
exit: 

hyp2geom| := s 

end Ayp2geom1 

The inefficiency of the original algorithm for real arguments, as 
mentioned by Henry C. Thacher Jr. in his certification of it, is 
largely reduced by these modifications, because they make a con- 
siderable reduction in the computational costs. 

With these modifications the algorithm was translated for the 
CDC-6500 using the Control Data Algol 3 compiler and ran only 
partially satisfactorily, as reported below. 

The following two tests (a) and (b) were performed, using iden- 
tities 1 and 2 and Algorithm 160 [1] for the combinatorial (7). 

The identities are: 


1. (1/B(ab)) (z*/a)oFi(a, 1—b;a+1;z) = I,(a, b), 
2. aX Bab) = (%")-1, where 

Bla, b) = fy e-(1—) at 

is the complete beta function and 

I.(a, b) = (1/B(a, 6)) fpr — pide 


is the incomplete beta function,a > 1,5 > 1, anda, b integer. 

Test (a). Computing ("?-") X Ayp2geomi (a, 1—b, a+l, 
z) X z Tf a, gavecorrect results to 7D., according [2], for the 
following values of a, b and z. 


b = 7,a = 7(1)9 and z 0.61(0.01)0.97; 
6 = 17, a = 17 andz = 0.13 
6 = 17,a = 17,18 andz = 0.14 
6 = 17, a = 17(1)19 andz = 0.15 
6 = 17, a = 17(1)34 andz = 0.50 


The total computation time for this test using combinatorial and 
hyp2geom| was less than 10 sec on the Control Data 6500 computer. 
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Test (b). The same test as test (a) was performed for the fol- 
lowing values of a, 6, and z. 


5 = 17, a = 17(1)34 andz = 0.51(0.01)0.60. 


The algorithm gave correct results to 5D, according [2]. 
For the values 


6 = 17, a = 17(1)34 andz = 0.61(0.01)0.89, the results be- 


came worse with increasing z. This error is due to slower conver- 
gence of the series 


oF, (a, b;¢;z) = 3 (a) n(b)n/(c)n 2"/n! 


with increasing z and increasing b. 
Pochhammer’s symbol means 


(a), = V(a+n)/T(a). 
More precisely we see 
(1/B(a, 6))(z*/a) Fi (a, 1-6; a+1;z) = 


3 (71) ((a)n (1—b)n/(@+1)n) 2"¢8/n! 


From this expression it is clear that the rate of convergence of the 
expansion by and large is dominated by the values of b and z. This 
explains why in test (a) for 6 = 7 the results remained accurate to 
7D for increasing z, and also it explains why in test (b) for 6 = 17 
the results became worse for increasing z. 


References 

1. Wolfson, M.L., and Wright, H.V. Combinatorial of M things 
taken N at a time. Comm. ACM 6, 4 (Apr. 1963), 161. 

2. Pearson, K. (Ed.). Tables of the Incomplete Beta Function. 
Cambridge U. Press, Cambridge, England, 1948. 
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ALGORITHM 192 

CONFLUENT HYPERGEOMETRIC 

A. P.. Revpx 

The English Electric Co. Inc., Whetstone, England 


procedure Confluent hypergeometric (a1, a2, cl, c2, z1, 22) 
Result : (sl, s2); value al, a2, cl, 2, 21, 22; 
real al, a2, cl, c2, 21, 22, s1, 82; 
begin comment calculates the confluent hypergeometric func- 
tion 1F1(a, c, z) with complex parameters 
(a=al+ia2, etc); 
real d, yl, y2; integer 7; 
procedure comp mult (al, a2, b1, 62, cl, c2); 
value al, a2, 61, 62; real al, a2, b1, 62, cl, c2; 
begin comment calculates the product of the two 
complex numbers (al+7a2) and (61+7b2) 
where 7 is the root of —1; 
cl := al X 61 — a2 X 02; 
c2 := a2 X 61 + al x b2 


end; 
sl := yl :=1; s2:= y2:=0; 
for n := step 1 until 100 do 
begin d:= 7 X ((el+n—1)f2+c212); 
comp mult (al+n—1, a2, y1/d, y2/d, yl, y2); 
comp mult (yl, y2, cl+n—1, —c2, yl, y2); 
comp mult (y1, y2, z1, 22, yl, y2); 
if sl = sl + ylAs2 = s2 + y2 then goto L; 
sl := sl + yl; 82 := 82+ y2 


CERTIFICATION OF ALGORITHMS 191 AND 192 

HYPERGEOMETRIC AND CONFLUENT HYPER- 
GEOMETRIC [A. P. Relph, Comm. ACM 6 (July 
1963), 388] 

Henry C. THAcHEer, Jr.* (Reed 2 Dec. 1963) 


Argonne National Laboratory, Argonne, Il. 
“Work supported by the U.S. Atomic Energy Commission. 


The bodies of these two procedures were transcribed for the 
Dartmouth ScaLP processor for the LGP-30 computer. No syn- 
tactical errors were found, and the programs gave results agreeing 
within roundoff (7D) with tabulated values for the following spe- 
cial cases: oF’, (0.5, 0.5; 1; %?) = (2/7) K(k); 2F1(0.5, —0.5; 1; h?) = 
(2/r) E(k) where K and £ are complete elliptic integrals of the first 
and second kinds; 1F1(.5; 1; ty) = Jo(z), and with :F,;(—1; 0.1; 2); 
1F1(—0.5; 0.1; x), and 1F:(—0.5; 0.5; 2). 

It should be observed that the function calculated by 191 is 
2F'i(a, 6; c; z), not 1F2(a, b; c; z) as stated in the comment. These 
programs evaluate the functions by direct summation of the hy- 
pergeometric series. They are, therefore, relatively general, but 
inefficient. Precautions must also be taken against attempting to 
compute outside the range of effective convergence of the series. 
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ALGORITHM 193 

REVERSION OF SERIES 

Henry E. Fettis 

Aeronautical Research Laboratories, Wright-Patterson Air 
Force Base, Ohio 


procedure SERIESRVRT (A, B, N); 
value A, N; array A, B; integer N; 
comment This procedure gives the coefficients B[z] for the series 
x=y + ZB] X y ft =2, 3, --- , n) when the coefficients 
A[t] of the series y = x + ZA[i] X x Ti are given. The procedure 
uses successive approximations after writing yr41 = 7 — SBlt] x 
yu Tt (=2, 3, +--+. , LD+2 and L=0, 1, --- , N—2) starting with 
Yo = 2; 
begin integer 7, j,k, m; 
array Q, R (0: N]; 
real s; 
A{l] := BO] := 0; 
Bil] := 1; 
for k := 1 step 1 until N — 1 do 
begin B[k+1] := 0; 
for 71 := 0 step 1 until k + 1 do 
R{t] := 0; 
for j := k + 1 step — 1 until 1 do 
begin Q[0] := R{0] — Aly]; 
for 7 := 1 step 1 until k + 1 do 


Qt] := Rlz); 
for 7 := 0 step 1 until k + 1 do 
begin s := 0; 


for m := 0 step 1 until 7 do 
s:= s+ Bim] X Qli—m); 
R{t] :=s 
end for 7; 
end for j; 
for 7 := 2 step 1 until k + 1 do Biz] := R[7] 
end for k; 
end SERIESRVRT 


CERTIFICATION OF ALGORITHM 193 
REVERSION OF SERIES [Henry E. Fettis, Comm. 
ACM 5, 1962] 
Henry C. THAcHER, JR.* 
Argonne National Laboratory, Argonne, IIl. 
* Work supported by the U. 8. Atomic Energy Commission 


The body of Algorithm 193 was tested on the LGP-30 using the 
ALGOL 60 translator developed by the Dartmouth College Com- 
puter Center. No syntactical errors were found. The program suc- 
cessfully found the first four coefficients for the series for In(1+y) 
from the first four coefficients of the series for y = e? — 1. 
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ALGORITHM 194 

ZERSOL 

CarLos DoMINGo 

Universidad Central, Caracas, Venezuela 


procedure ZERSOL (h, YI, m, epsi, F, f, Z); real h, epsz, f; 
array YI,Z; integer m; procedure F; 

comment ZERSOL finds the simple zeros of the solution Y1(Y0) 
of the set of m first order differential equations Yj = -Fj(Y0, 
Y1,-::, Ym). his the step of integration, epsi the error with 
which the zeros are to be determined (assuming no error in the 
process of integration). F(YS, j, v) is a procedure which calcu- 
lates the functions Fj, taking the arguments from the array 
YS and leaving the results in v. The search for zeros stops 
when YO > f. The zeros are stored as elements of the array Z. 
MR is a 4 X 4 matrix with the coefficients of a Runge-Kutta 
method. For example MR may be row-wise 0.5,1,0.5,0,1 — a, 
1—a,1—a,05,1+a,1+ a, 1+4a4, 0, 3, 4, 0.5, 0.5, where 
a = sqgri(2); 

begin real v, 7, d; integer j, s,,k; array Q[1:m], YS(0:m], 
YAL [0:m], YT[1:m], MR[1:4,1:4]; switch S := NOZ, ZER; 


n:=1; 
for d := h while YI(0] S f do 
begin s := 1; 


Ri: forj := 1 step 1 until m do 
begin Q[j] := 0.0; YS[j]:= YIU]; YTij]:= YI] end; 
YS[0] := YI{0]; 
R2: fork := 1 step 1 until 4 do 
begin YS[0] :== YS{0] + MR[k, 4] x d; 
for j := 1 step 1 until m do 
begin F(YS,j,v); v:= 0 Xd; 
r:= MR[k,1] X v — MRIk,2)X QU]; 
YT(j] -= YTG) + 1; 


Qis] := Qj] + 3.0 X r — MR[k,3] X » 


end; 

for j := 1 step 1 until m do YS{j] := YT{y] 
end; 

go to S(s); 


NOZ: if sign(YI{1]) # sign(YS[1]) then go to IT; 
TR: for j := 0step 1 until m do YI[j] := YS[j];_ goto R2; 
IT: 8 := 2; 
for 7 := 0 step 1 until m do YAL{[j] := YS[j]; 
ZER: d := d/2; 
if d S epsi then go to STZ; 
if sign(YI[1]) = sign(YS[1]) then go to TR else go to Rl; 
STZ: Z[nj] := YI(0] := YI(0) +d; n:=n+1; 
for j := C step 1 until m do YI{j] := YAL[j] 
end; 
end 
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ALGORITHM 195 
BANDSOLVE 

DonaLp H. THuRNAU 

Marathon Oil Co., Littleton, Colo. 


procedure BANDSOLVE (C,N,M,V); 
N,M; real array C,V; 
comment BANDSOLVE is effective in solving the matrix equa- 
tion AX = B when the matrix A is of large order and sparse 
such that a narrow band centered on the main diagonal includes 
all the non-zero elements. Parameter N is the order of A, and M 
is the width of the band, necessarily an odd number of elements. 
BANDSOLVE is very efficient because it operates only on the 
band portion of the matrix A, given in the N by M array C. The 
band elements of a given row of A appear in the same row of C 
but shifted such that element A [7,7] becomes C[z,j—2-+(M+1)/2]. 
All band elements whether zero or non-zero must be given. The 
values of undefined elements of C, such as C[1,1] or C[N,M], are 
irrelevant. The array V initially contains the vector B. After 
solution, the array V contains the answer vector X. The con- 
tents of array C are destroyed during solution which is done by 
Gauss elimination with row interchanges, followed by back sub- 
stitution; 
begin integer JM,LR,I,PIV,R,J; real T; 
LR := (M+1) + 2; 
for R := 1 step 1 until LR — 1 do 
for I := 1 step 1 until LR — Rdo 
begin for J := 2 step 1 until M@ do 
Ci{R,J—1] := C[R,J); 
C{R,M] := C[N+1—R&,M+1-I] := 0 
end of row shifting and zero placement; 
for I := 1 step 1 until N — 1 do 
begin PIV := I; 
for R := I+ 1 step 1 until LR do 
if abs(C[R,1])>abs(C[PIV,1]) then 
PIV :=R; 
if PIV ~ I then 
begin T := V[J); 
V{I] := V[PIV]; 
V[PIV] := T; 
for J := 1 step 1 until M do 
begin T := C[I,J/); 
C{l,J] := C{PIV,/]; 
C[PIV J] := T 
end J 
end of row interchange; 
ViQ) := ViZ)/Cld,1); 
for J := 2 step 1 until M do 
Cil,J] := CU,J1/Cll,1); 
for R := I + 1 step 1 until LR do 
begin 7 := C[R,1] 
V[R] := V[R] — T X V{I]; 
for J := 2 step 1 until M do 
C(R,J—1) := C{R,J] — T X CIT); 
C[R,M] := 0 
end &; 
if LR ~ N then LR := LR +1 
end of triangularization; 


value N,M; 


integer 
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V{N] := V[NI/CIN 1); 
JM := 2; 
for R := N — 1 step —1 until 1 do 
begin for J := 2 step 1 until JM do 
V[R] := V[R] — C[R, J] X VIR—-1+/]; 
if JM ~ MthenJM := JM +1 
end of back solution 
end BANDSOLVE 


Remark on Algorithm 195 [F4] 
BANDSOLVE [Donald H. Thurnau, Comm. ACM 6 
(Aug. 1963), 441] 


Ernst Schuegraf [Recd. 1 Mar. 1971] 
Department of Mathematics, St. Francis 
University, Antigonish, Nova Scotia, Canada 


Xavier 


Algorithm 195 was transliterated into Fortran IV for the IBM 
360/50. Various matrices with different values of N and M were 
used. The execution time was recorded and the accuracy of the 
results was checked. 


Execution time [sec] 


M=11 M=15 M=21 M=25 
N = 50 2 ne | 1.9 
N = 100 6 1.6 2:5 4.2 


The execution time shows the expected proportionality to 
((M — 1) + 2)?-N. (Note the definition of M!) When checking 
the results, it was found that the algorithm failed for singular and 
near singular matrices. To protect against this, it is recommended 
to introduce a tolerance eps for a test on singularity and a label 
fail. This requires the following changes in the procedure declara- 
tion: 


procedure BANDSOLVE (C,N,M,V,eps, fail) ; 
It is necessary to insert the following statements in the blockhead 
of the procedure: 

real eps; label fail; 
After the statement piv := r; insert: 

if abs (C[piv, 1]) < eps go to fail; 
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ALGORITHM 196 

MULLER’S METHOD FOR FINDING ROOTS OF 
AN ARBITRARY FUNCTION 

Rozsert D. RopMan 

Burroughs Corp., Pasadena, Calif. 


procedure MULLER (pl, p2, p3, mam, nrts, epl, ep2, swl, sw2, 
sw3, swr, rrt, irt); 
value pl, p2, p3, mam, nrts, epl, ep2, swl, sw2, sw3, swr; 
integer mzm, nris; boolean swl, sw2, sw3, swr; 
real pl, p2, p3, epl, ep2; array rrt, irt; 
begin comment procedure MULLER finds real and complex 
roots of an arbitrary function. pl, p2, and p3 are starting values. 
Roots nearest these points are found first. mzm is the maximum 
number of iterations to be made in finding any one root. ep1 and 
ep2 are specified as tolerance parameters. If ABS((Xis1—X:)/ 
Xiy1) < epl or if the function value and modified function value 
are both less than ep2, a root has been found. If swl is true, 
then each iterant of each root is printed. If sw2 is true, the 
value of each root found is printed. If sw3 is true, then, when 
applicable, the complex conjugate of each root found is admitted 
as a root. If swr is true, only real roots are found. rré and irt 
contain the real, and imaginary parts of each root found. Proce- 
dure function is the function generator and procedure com- 
plex performs necessary complex operations; 
boolean bool; integer cl, ric, i, ttc; real rxl, rz2, 1x3, ixl, 
tz2, 123, rroot, iroot, rdnr, idnr, tl, itl, frroot, firoot, rfxl, rfx2, 
rfx3, ifxl, ifx2, ifx3, rh, th, rlam, ilam, rdel, idel, (2, it2, 3, it3, t4, 
1t4, rg, 1g, rden, iden, rfunc, ifunc; 
switch j := "m2, m3, m4, m7, ml1l1; 
procedure funciion (reale, imag, reval, zeval) ; 
value reale, imag; real reale, imag, reval, eval; 
begin comment Coding for this procedure must be inserted at 
compile time. reale and imag are the real and imaginary parts 
of the dependent variable. reval and zeval, the real and imaginary 
parts of the function; 
end function; 
procedure complex (a, ia, b, ib, k, c, ic); 
value a, ia, b, ib, k; integer k; 
real a, ia, b, 2b, c, ic; 
begin real temp; switch j := mpy, dvd, sqt: 
go to j[k]; 
mpy: ¢:=aXb—iaX ib; ic :=aX ib+ ta X Db; go to exil; 
dvd: if (ib=0) A (b=0) then begin ic := 0;¢ :=1; 
go to exit end; temp := b fT 2+ 7b fT 2; 
¢ := (aXb+iaxib)/lemp; ic := (iaxb—axXib)/temp; 
go to exit; 
sq: if (a=0) A (a<0) then 
begin c := 0; ic := sgri (—a) end 
else if 7a = 0 then 
begin c := sqri(a); ic := 0 end 
else begin temp := sqrét (af 2+iaT 2); 
c := sqrt ((temp + a)/2); 
te := if (emp —a) < 0 then 0 
else sqrt ((temp — a)/2) end; 
if (+c) T 2+ (ib+ic) T 2) < ((—c) T 2+ @b—ic)T 2) 
then begin c := b —c; ic := 1b — ic end 
else beginc := b+ c; ic := ib+ ic end; 
exit: end of complex; 
start: fori := 1 step 1 until nrts do rrt [7] := irt [1] := 0; rte := 0; 
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m0: ixl := ix2 := iz3 := cl, := iroot := ttc := 0; 
rroot := pl; bool := false; 
mi: cl; := cl +1; rdnr :=1; idnr := 0; 
for 7 := 1 step 1 until ric do 
begin 
complex (rdnr, idnr, rroot-rrt [i], iroot-irt [i], 1, 1, 7t1); 
rdnr := tl; idnr := itl 
end; 
function (rroot, iroot, tl, tt1); 
complex (tl, 7t1, rdnr, tdnr, 2, frroot, firoot) ; 
go to j[cl]; 


m2: rfxl := frroot; ifxl := firoot; rroot := p2; 
go to ml; 

m3: rfx2 := frroot; ifx2 := firoot; rroot := p3; 
go to ml; 

m4: rfx3 := frroot; tfx3 := firoot; ral := pl; 
7x2 := p2; rz3 := p3; rh := red — rx2; 


th := 143 — 122; 

complex (rh, th, rx2— rx, ix2— ixl, 2, rlam, ilam); 

rdel := rlam +1; idel := lam; 

m9: if (rfxl=rfx2) A (rfe2=rfx3) A (ifzl=tf22) A (ifjx2=1fx3) 

then begin rlam := 1; ilam :=|0; goto m8 end; 

complex (rfxl, ifxl, rlam, ilam, 1, #1, it1); 

complex (rfx2, ifx2, rdel, idel, 1, t2, 12); 

t1 := ¢1 — (2+ rfx3; atl := itl — 12 + 7f2x3; 

complex (rdel, idel, rlam, ilam, 1, #2, 72); 

complex (#1, it1 #2, 2t2, 1, 3, 73); 

complex (rfx3, ifx8, 13, 1t3, 1, t1, t#1); 

tl:= —4X U1; dtl := —4 X 1281; 

complex (rfx3, ifx8, rlam+-rdel, ilam+idel, 1, #2, 1t2); 

complex (rdel | 2—idel T 2, 2X rdelX idel, rfx2, ifx2, 1, t8, 243); 

complex (rlam t 2—ilam72, 2XrlamxXilam, rfxl, ifxi, 1, 
t4, 214); 

rg:= t4—t38 +12; ig := 1t4 — 113 + 112; 

if swr A ((rgT 2+t1)<0) then 
begin rden := rg; iden := ig := 0 end 

else complex (rgt2—igT2+itl, 2XrgxXig+itl, rg, ig, 3, 
rden, iden); 

complex (—2Xrfx3, —2Xifzx8, rdel, idel, 1, t1, it1); 

complex (#1, itl, rden, iden, 2, rlam, ilam); 

m8: tte := tte +1; 


rel := ra2; ra2:= 1x8; rfxl := rfx2; rfx2 := rfx3; 
dal := i142; t22 := 128; tfxl := if72; if2 := 1fx3; 
complex (rlam, ilam, rh, th, 1, ti, 2t1); 

rh := tl; th := itl; 


m6: rdel := rlam +1; idel := ilam; rx3 := 1x2 + rh; 
in3 := ix2 + ih; cl := 3; rroot := 723; 
troot := 123; go to ml; 
mi: rfx3 := frroot; ifx3 := firoot; 
function (rx3, 1x8, rfunc, ifunc); 
complex (rfx3, ifx3, rfx2, 1fx2, 2, t1, 2t1) ; 
if (t112+7t172) > 100 then 
begin rlam := rlam/2; rh :== rh/2; 
th := th/2; go to m6 end; 
if swl then .. 
comment option to output iterant and associated function 
values; 
t1 := rx3 — rx2; tt] := 123 — 122; 
complex (t1, it1, rxz2, 1x2, 2, 12, 7t2) ; 


tlam := tlam/2; 


COLLECTED ALGORITHMS (cont.) 


if sqrt (t27 2+7t2T 2) S epl then go to/finl; 
if (sqrt (rfx3 T 2+ifx3 T 2)Sep2) A 
(sqrt (rfunc f 2+ifunc tf 2)Sep2) then go to fin 2; 
go to if ttc 2 mzm then fin3 else m9; 
jini: if sw2 then... 


comment option to output root; goto m12; 
fn2: if sw2 then... 
comment option to output root; go to ml12; 


fin3: if sw2 then... 
comment no convergence, option to output last iterant; 
bool := true; 
ml2: rie := rte +1; rrt[ric] := 1x3; 
if ric = nrts then go to exit; 
if (ABS(ixz8)>ep1) A sw3 A — bool then 


tri[ric] := 7128; 


begin iz3 := —ix8; function (rx, 1x3, rfunc, ifunc); 
rroot := 728; troot := 123; cl := 4; 
go to ml; 


m11: if sw2 then... 
comment the complex conjugate of the last root found is accept- 
able. Option to output this root; 
rte := rte +1; rrt[rtc] := rx; 
end else go to m0; 
if ric < nrts then go to m0; 
exit: end of procedure MULLER 


trt(rtc] := 123 


CERTIFICATION OF ALGORITHM 196 [C5] 

MULLER’S METHOD FOR FINDING ROOTS OF 

AN ARBITRARY FUNCTION [Robert D. Rodman, 
Comm. ACM 6 (Aug. 1963), 442] . 

Virainia W. WuitLey (Recd. 11 Oct. 1966, 24 Feb. 1967 
and 8 Sept. 1967) 

Environmental Research Corp., Alexandria, Va. 


KEY WORDS AND PHRASES: 
CR CATEGORY: 5.15 


equation roots, function zeros 


The Algorithm. Algorithm 196 has been compiled in For- 
TRAN IV on the CDC-3600 and the IBM-7090 both in single and in 
double precision. The single precision versions used the system- 
supplied complex arithmetic subroutines; the double precision 
versions used subroutines agreeing as closely as possible with those 
described in the IBJOB Manual [4]. Thus, the algorithm tested 
differs from the published algorithm only in the complex square 
root subroutine. 

There are five remarks to be made about Algorithm 196. 


(1) As the Algorithm stands, if one of the values P1, P2, or P3 
is a root of the equation and if more than one root is to be found, 
then the procedure will fail with a 0/0 form in the computation of 


rte 


F(z) =) fe)/ TI @—2). 


Our decision was to terminate the procedure with a message to the 
user. The referee has suggested an alternative: 


ml: rdnr := 1; tdur := 0; 

for 7 := 1 step 1 until ric do 

begin 

if rroot = rré [c¢] A troot < irt [¢] then 

begin 
if cl = 0 then P1 := rroot := 2 X rroot + epl else 
if cl = 1 then P2 := rroot := 2 X rroot + epl else 
if cl = 2 then P3 := rroot := 2 X rroot + epl else 


begin comment we have converged to a zero found pre- 
viously, we accept it without any test; 
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go to finl; 
end; 

go to ml 
end; 
complex (rdnr, tdur, rroot — rrt [i], iroot — irt [2], 1, #1, 
atl); rdnr := tl; idnr := itl 

end; 

cl :=cl +1; 

function (rroot, troot, tl, zt1); 


(2) The logical variable bool should be called by name in the 
procedure statement and should be an array of the same dimension 
as rrt and irt. Otherwise, unless sw2 is true, the user will not know 
which of the ‘‘roots’’ satisfies the convergence criteria and which 
was returned by default. 


(3) The statement fin2 is unnecessary, since it is identical to 
jini. 


(4) Frank [1] states, ‘“This procedure (Muller’s method) works 
readily for functions having simple roots. On the other hand, if 
a function possesses multiple roots, &, then F(z) is indeterminate 
when z approaches a é which may already have been found. How- 
ever, even in this case the process has never failed. In fact, roots 
of multiplicity six or more have been found successfully. This is 
primarily due to the fact that multiple roots are found to much 
less accuracy than simple roots and behave, in effect, like clustered 
roots.’’ In a private communication, Frank explained that the sub- 
routine described in [1] included steps which perturbed roots 
already found, forcing them to behave like clustered roots. Frank’s 
remark is not true for Algorithm 196, as a simple test with (z—2)?, 
requesting two roots, will demonstrate. 


(5) The complex square root in procedure compler contains at 
least two errors, not the least of which is that it fails to take ac- 
count of the location of the complex number whose root is being 
computed. The: referee has pointed out a second error: ‘‘The 5th 
line after the line labelled sgt should be 


c := sqri((tempt+a)/2) X sign(ia). 


The construct if (temp—a) < U then 0 is unnecessary as the 
Boolean expression cannot be true. Moreover, even with correc- 
tions the complex square root included is unsatisfactory because, 
when 7a is small, either temp — a or temp + a will be a difference 
of two nearly equal numbers and loss of significance will occur.” 
It is suggested that the four lines beginning four lines below the 
label sgt be replaced by 
else begin temp := sqrt((abs(a)+sqrt(a t 2+7a f 2))/2); 
tc := 5 X ta/temp; 
if a > 0 then c := temp 
else begin c := abs(ic); 
te := sign(ia) X temp 
end; 
end; 
if ((b+c) T 2+(¢b+ic) T 2) < --- 
Under some systems, the case i2 = —O might cause problems. 
With the possible exception of the case 7a = —0, this coding will 
choose the square root whose real part is positive. 


Modifications to the Algorithim. Both the single and 
double precision versions have been altered as suggested by Traub 
[3, p. 212]: 
2fs 


Pi 


f= f(a) 


eel ai 


ps = wi t {w? — 4ff lec, zn, 2zi-2}! 
ws = flz,, al + (ai — 2a) fles, 2a, 2:-2] 


flex, zea) — fla, 2-2] 


Zi, Zi-1, Zi-2] = 
fle, tl, #4 ] ip Bie 


COLLECTED ALGORITHMS (cont.) 


Pita 
eo S1 


Both Algorithm 196 and Traub’s iteration function choose the 
sign of the square root to maximize the modulus of the denomi- 
nator. 

Although the two iteration functions are equivalent, Traub’s 
requires fewer operations (8 additions, 5 multiplications and 
3 divisions compared to Muller’s 10 additions, 15 multiplications 
and 2 divisions), less storage and less computing time. 

The behavior of the coded version of Traub’s method differed 
little from that of Algorithm 196. Given the same starting values, 
both methods converged in the same number of iterations, even 
though the first iterates were sometimes different. Example 1 
compares Muller and Traub in single precision with double preci- 
sion. The difference between the first iterates in single precision 
is the result of roundoff due to the fact that the initial function 
values, f(P1), f(P2), and f(P3), are very close together. In double 
precision the two methods agreed to 17 significant figures (the 
CDC-3600 carries approximately 24 decimal digits in double 
precision). 

Comparison of double versus single precision results on the same 
machine and double versus double (single versus single) on two 


Example 1. f(z) = 2®—1 


Pl = .1875 f(P1) = —.999999999999997115799543 epl = 51) —6 
P2 = 375 f(P2) = —.999999996975696621957785 ep2 = 51) —6 
P3 = .5 f(P3) = —.999999046324683493750000 nrts = 2 
toch : f(z) 
ep oe 8959044683 —001]—8.890227259 —001 
“"|'Traub |8.959064917 —001]—~8.890177130 —001 
d.p. 8 .9590562323582572— 001] —8.8901986473910256—001 
als.p a 1.009184101 +000} 2.006266970 —001 
*')Traub |1.009182792 +000} 2.005955638 —001 
d.p 1.0091833539604292+-000] 2.0060892685123016—001 
3le.p era 9 .915438059 —001}—1.562027260 —001 
"| Traub {9.915451528 —001]—1.561798028 —0o01 
d.p. 9 .9154457471920591 —001/ —1.5618964171373523—001 
4le.p es 9 .996899988 —001]—6. 181798671 —003 
'"|'Traub |9.996900961 —001|—6.179863674 —003 


d.p 9 .9969005435603457 — 001] —6 .1806941810976143 — 003 
Bis Alg.196 |9.999986299 —001|—2.740146010 — 005 
‘P\Traub |9.999986307 —001|—2.738516196 —005 
d.p. 9 .9999863036901786 —001|—2.7392263226776617 — 005 
6\s Bae 1.000000000 +000) 3.492459655 — 009 
“"\Traub |{1.000000000 +000) 3.492459655 —009 
d.p 1.0000000001972048+-000} 3.9440963812509629 — 009 
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Example 2. Acoustic Waveguide Function 


me pcos (28), p = 2.50 


Re(P)<0; S= Wi(z/e)?—k'4], Re(s) <0; 
Pl =0.0, P2 = 0,02, P3 = 0.04 


t(s) = 4 + to 


f(z) = P 
P= V(kt— 24), 
k = 0.0, « = 0.288; 

gmxe-+ wy 


x y 4 9 


0.67672247 —01/0.44008261 — 02/0 .24001462—00|0.49014466—01 
0.71677143—01)0 .51274250— 0210 .23250824— 01/0 .98558515—02 
0.72102452 —01/0. 53056952 — 02/0 .20655826—03/0. 1933127607 
0.72106262—01)0. 53092607 — 02/0 .39539112—07|0.40978193—07 


Rm Wd ee 


Example 8. The 20 Roots of Unity 


Starting values at approximately 19, 27, and 35 degrees. Conju- 
gates accepted as roots. epl = ep2 = .fio — 7. Roots are at e'77/29, 
r= 0,---, 19. 


Number 
Root r _ of 
iterations 

0 3 5 
1 17 * 
2 4 15 
3 16 * 
4 7 22 
5 13 * 
6 9 14 
7 11 * 
8 5 14 
9 15 * 
10 1 10 
11 19 * 
12 2 7 
13 18 * 
14 6 10 
15 14 * 
16 0 5 
17 8 8 
18 12 * 
19 10 2 


* Asterisk in column 3 indicates conjugate taken; i.e., 2: = 2, 
23 = 22, etc. 


different machines have been made. In every case differences can 
be satisfactorily explained by (1) different BCD-binary conver- 
sion on different machines, (2) different word lengths, or (3) dif- 
ferences in library subroutines on the various machines. 


Miscellaneous Comments. Both versions of Muller’s method 
(Algorithm 196 and Traub’s iteration function) have the advan- 
tage over other one-point-with-memory methods in that it is 
possible to locate complex zeros using real starting values. There 
is, of course, the possibility of spending unnecessary time doing 
complex arithmetic. As a general purpose library routine, unless 
one is looking for complex zeros, there are other iterative functions 
that require less space and have the same order; there are also 
others requiring less space and enjoying higher order, although 
they usually involve computing derivatives. For our purposes, the 
Traub version of Muller’s method has proved quite satisfactory. 


COLLECTED ALGORITHMS (cont.) 


Example 2 is included to indicate the behavior of the Algorithm 
using a non-algebraic function. With this function both Algorithm 


196 and the Traub modification agreed exactly except for a dif- 
ference in the last digit in the first iterate. 

Example 3 is included to show the order in which the 20 roots 
of unity are found and the number of iterations required to attain 
the specified accuracy. Values were checked against the NBS 
Tables of Sines and Cosines to 18 Decimal Places. All but two roots 
were correct to 9 significant figures; the remaining two were 
correct to 8. 


Acknowledgment. The support of this work by the Atomic 
Energy Commission, Contract AT(29-2)-1163, is gratefully ac- 
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ALGORITHM 197 

MATRIX DIVISION 

M. WELLS 

University of Leeds, Leeds, England 


procedure Pos Div (b, c, m, n, solve); 
value m, n, solve; array b,c; integer m,n; Boolean solve; 
comment The matrix c, with m rows and n columns, is divided 
by the positive definite matrix b, of order m, by the square root 
method (see Fadeeva, V. N., Computational Methods of Linear 
Algebra, Chap 2, §10). The upper triangle of 6 is replaced by 
an upper triangular matrix N such that N‘N = b. The other 
elements of 6 are undisturbed. The matrix c is replaced by b~c. 
The Boolean solve is used as a switch. If its value is true, then 
it is assumed that an earlier entry to Pos Div has left the matrix 
N in place, and a further division of c by b takes place; 
begin integer 7, j,k; 
real procedure dot (a, b, p, q); 
value q; real a, b; integer p, q; 
comment This is innerproduct, modified to define a function 
designator ; 
begin real s; s := 0; 
for p := 1 step 1 until qdos:=s+aX b; 
dot := s end dot; 
Start of program: if solve then go to back substitution; 
for «1 := step 1 until m do 
begin b [7,7] := sqrt (b[2, ¢] — dot (b[j, 7] 2,1, 7,7 —1)); 
for 7 :=72-+ 1 step 1 until mdo 
blz,j] := (b[2,7] — dot (b[k,7], bfk,3], k, i—1)) /b[z,7] 
end formation of upper triangular matrix; 
back substituton: for 1 := 1 step 1 until n do 
begin for j := 1 step 1 until m do 
elt,j] := (elt,7] — dot (b[k,7), clt,k], k, 7—-1))/b[),a); 
for j := m step —1 until 1 do 
clt,7] = (elt, 3] — dot (b[j,m+1—k], clt,m+1—k], k, m—j))/ 
b[7,7] 
end of double back substitution 
end of Pos Div 


CERTIFICATION OF ALGORITHM 197 
MATRIX DIVISION [M. Wells, Comm. ACM 6 (Aug. 
1963), 443] 
M. Wes (Reed 18 Nov. 63) 
University of Leeds, Leeds, England 
The procedure was tested on a Ferranti Pegasus, using the 
ALGOL compiler developed by the de Havilland Aircraft Company 


at Hatfield. The line after the one labelled ‘start of program’ 
should read 


for 71 := 1 step 1 until m do 


(the first 1 was omitted). 
The statement labelled back swhstituton is incorrect, and should 
read 


back substitution: for j:= 1 step 1 until n do 
begin fori := 1 step | until m do 
c(t,j] += (eft,j] — dot (b[k,t], cfk,3], k,z—1))/b[t, 2]; 
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for 1 := m step —1 until 1 do 
clt,j] := (eli,j] — dot (b[t,m+1—&kl, clm+1—k,j],k,m—t))/b[2,2] 
end of double back substitution 


With these changes the program was operated successfully on 
a number of small test problems. The procedure is only applicable 
to symmetric positive definite matrices, and no systematic at- 
tempt has yet been made to assess the accuracy of the results. 

The word ‘symmetric’ should be inserted before ‘positive 
definite’ in the comment. 

It is interesting to note that the original, incorrect version of 
the procedure will divide one symmetric matrix by another, and 
go can be used for matrix inversion. 
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ALGORITHM 198 

ADAPTIVE INTEGRATION AND 
INTEGRATION 

WititiamM MarsHath McKEeEeMan 
Stanford University, Stanford, Calif. 


begin comment This program illustrates the declaretion and 
call of a procedure used to numerically approximate definite 
integrals and multiple integrals. The integrand is an expression 
substituted for the first formal parameter and must be a func- 
tion of the simple variable replacing the second formal pa- 
rameter. Multiple integration is accomplished by substituting 
a complete call of Integral for the first formal parameter. Note 
that in this case that the limits of integration on the inside calls 
may be functions of the variable of integration on the outer 
call. The parameter rule selects a Newton-Cotes formula which 
matches a polynomial of degree = rule to the function in the 
interval of integration. (See Hamming, Numerical Methods for 
Scientists and Engineers, Sec. 12.2). In any case, the procedure 
integral adapts its step size to the function in seeking to mini- 
mize the number of function evaluations. The program has been 
tested and run on a variety of functions using the ALGoL com- 
piler on the Burroughs B-5000.; 

real procedure Integral (F) a function of. the real variables: (zx) 
between limits: (a,b) polynomial degree: (rule) tolerance: (eps); 

value a, b, rule, eps; integer rule; 

real F, x, a, 6, eps; 

begin comment set up the parameters for the recursion before 
calling the procedure NC; 

switch net := 1, R2, R3, R4, R5, R6, R7; 

real array cf, fn [l:rule+1]; 

integer k; real da, ab; 

real procedure NC (F ,z,a,da,fn,k,cf,rule,eps,es,ab,1v1) ; 

value a, da, rule, eps,es,1vl;_ real array cf; 

integer k, rule, lvl; real F, x, a, da, fn, eps, es, ab; 

begin comment NC is the adaptive heart of Integral; 
real array fe[1:rule+1,l:rule+1], est, xa[l:rule+1]; 
integer i,j; real dz, int, ep; 
real procedure SUM (term, index, upperlimit); 


MULTIPLE 


real term; integer index, upperlimit; 
begin real ¢t; ¢ := 0; 
for index := 1 step 1 until upperlimit do 
t:= t + term; 
SUM :=t¢ 
end of SUM; 
comment begin the integration by evaluating F on the mesh 
points; 


for k := 1 step 1 until rule + 1 do fc[k ,k] := fn; 
dx := da/(ruleX (rule+1)); 
2:= a; 
for 7 := 1 step 1 until rule + 1do 
for 7 := 1 step 1 until rule do 
begin 
if.j = 1 then x2[7] := a; 
if «1 ¥ j then fe[z,j] := cf[j] X F; 
vw i= at dz; 
end having done all necessary function evaluations; 
fori := 1 step 1 until rule do 
felt, rule+1] := fe[¢+1,1]; 
ep := eps/sgri(rule+1); 
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comment eps/(rule + 1) is the value to give an absolute 
error bound of eps in the final answer. It proves too strict in 
practice; 
dz := dx X rule; 
comment compute the integrals of the subintervals; 
for 7 := 1 step 1 until rule + 1 do 
est([?] := SUM (fe[t,7],j,rule+1) Xdz; 
ab := ab — abs(es) + SUM (abs(est[z]) ,2,rule+1); 
comment ab is the area under abs(F). It is used in computing 
the relative error upon which to terminate; 
int := SUM (est[t],7,rule+1); 
if lvl 2 100/(rule+1) then go to error; 
NC := if abs(es—int) S eps X ab / es ¥ 1.0 then int 
else SUM (NC(F..z,x2[1] ,dz,fc[t,7\,7,¢f ,rule,ep,est[t], ab,lv1+1), 
t,rule+1) ; 
go to relurn; 
error; NC := tint; 
comment abs(es — int) is the approximate error caused by 
terminating the recursion. In most cases, termination at 
this level will not adversely affect the accuracy of the result; 
return: 
end of NC; 
comment now initialize the Newton-Cotes coefficients ; 
go to net [rule]; 
Ri: cf[(1] := ef[2] := 1.0/2.0; go to compute; 
R2: ef{i) := cf{3] := 1.0/6.0; cf[2] := 4.0/6.0; 
comment £1 is trapezoidal rule, R2 is Simpson’s rule; 
go to compute; 
R38: cf{l] := ef[4] := 1.0/8.0; 
cf(2] := cf [3] := 3.0/8.0; go to compute; 
R4: cf(1] := cf[5] := 7.0/90.0; 
cf[2] := cf[4] := 32.0/90.0; 


ll 


cf[3] := 12.0/90.0; go to compute; 
R5: cf[l} := cf[6] := 19.0/288.0; 
cf(2] := cf[5] := 75.0/288.0; 


cf[3] := cf[4] := 50.0/288.0; go to compute; 


R6: cf{l] := cf[7] := 41.0/840.0; 
cf[2] := cf[6] := 216.0/840.0; 
cf[3] := cf[5] := 27.0/840.0; 


cf[4] := 272.0/840.0; go to compute; 
R7: cf[1] := ef[8] := 75.1/1728.0; 
cf(2] := cf[7] := 357.7/1728.0; 
cf[3] = cf[6] := 134.3/1728.0; 
cf[4] := cf[5] := 298.9/1728.0; 
compute: da := b — a; 
for k := 0 step 1 until rule do 
begin 
zie atk X da/rule; 
fntk+1] := F X ef(k+1); 
end; 
ab := 1.0; 
Integral := NC(F,z,a,da,fn|k],k,cf ,rule,eps,1.0,ab,0) ; 
end of Integral; 
comment Now evaluate the integral of 1.0/sqri(abs(z+y)) 
on the unit disk in the x,y-plane; 
real x, y, answer; 
answer := Integral (Integral(1.0/sqrt(abs(x+y)), 2, 
—sgri(1.0—y T 2), sgrt(1.0—y Tf 2), 7, 0.001) ,y, —1.0,1.0,3,0.001) ; 
end of program; 
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ALGORITHM 199 

CONVERSIONS BETWEEN CALENDAR DATE 
AND JULIAN DAY NUMBER 

Rosert G. TANTZEN 


Air Force Missile Development Center, Holloman AFB, 
New Mex. 


procedure JDAY (d,m,y,j); 
integer d,m,y,j; 
comment JDAY converts a calendar date, Gregorian calendar, 
to the corresponding Julian day number j. From the given day 
d, month m, and year y, the Julian day number ; is computed 
without using tables. The procedure is valid for any valid 
Gregorian calendar date. When transcribing JDAY for other 
compilers, be sure that integers of size 3 X 10° can be handled; 
begin integer c, ya; 
ifm > 2 then m := m — 3 
else begin m := m+ 9; y :=y—1end; 
c:=y +100; ya:=y —100Xc¢; 
j i= (146097 X c) + 4+ (1461 ya) +44 (153 m+2) +5+d+1721119 
end JDAY 


procedure JDATE (j,d,m,y); 
integer j,d,m,y; 
comment JDATE converts a Julian day number j to the corre- 
sponding calendar date, Gregorian calendar. Since 3 is an integer 
for this procedure, it is correct astronomically for noon of the 
day. JDATE computes the day d, month m, and year y, without 
using tables. The procedure is valid for any valid Gregorian 
calendar date. When transcribing JDATE for other compilers, 
be sure that integers of size 3 X 108 can be handled: 
begin j := j — 1721119; 
y := (4X%j—1) + 146097; j:= 4X7 — 1 — 146097 x y; 
d:= j+4; 
j := (4Xd+8) + 1461; 
d:= (d+ 4) +4; 
m := (5Xd—3) + 1538; d:= 5Xd—3-—153X m; 
d :=(d+5) + 5; 
y:=100X y+; ifm <10thenm := m4 3 
else begin m := m—9; y:=y+1lend; 
end JDATE 


procedure KDAY (d,m,ya,k); 

integer d,m,ya,k; 

comment KDAY converts a calendar date, Gregorian calendar, 
to the corresponding serial day number k. From the given day 
d, month m, and the last two decimals of the year, ya, the serial 
day number & is computed without using tables. The procedure 
is valid from 1 March 1900 (k=1) to 31 December 1999 
(k = 36465). To obtain the Julian day number j (valid at noon) 
use j = k + 2415079; 

begin if m > 2 then m := m — 3 

else begin m := m+9; ya := ya — lend; 

k := (1461Xya) + 44-(153Xm+2) +5+d 

end 


procedure KDATE (k,d,m,ya); 
integer k,d,m,ya; 


d:=4Xd+3— 1461 Xj; 
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comment KDA''E converts a serial day number k to the corre- 
sponding calendar date, Gregorian calendar. It computes day d, 
month m, and the last two decimals of the year, ya, without 
using tables. The procedure is valid from k = 1 (1 March 00) to 
k = 36465 (31 December 99) for any one century. For the 20th 
Century the relation between k and theulian day number j 
(at noon) is j = k + 2415079; 
begin ya := (4Xk—-1) + 1461; d := 4Xk — 1 — 1461 X ya; 
d := (d+4) +4; m:= (5Xd—38) + 158; 
d:= 5Xd — 3 — 1538Xm; 
d := (d+5) + 5; 
ifm < 10 then m := m+ 3 
else begin m := m—9; ya := ya +1 end; 
end KDATE 


CERTIFICATION OF ALGORITHM 199 [Z] 

CONVERSIONS BETWEEN CALENDAR DATE AND 
JULIAN DAY NUMBER [Robert G. Tartzen, Comm. 
ACM 8 (Aug. 1963), 444]. 

Davip K. OpprenHetm (Recd. 10 Jul. 64 and 27 Jul. 64) 

System Development Corp., Santa Monica, Calif. 


Algorithm 199 was translated into Joviau J3 and tested on the 
Philco 2000. Input was generated with a random number generator 
that produced uniformly distributed dates between the years 
1583 and 2583. The results were checked for 50 different dates in 
that range. 

The procedures as written place unnecessary restrictions on 
some of the parameters. Expressions cannot always be used as 
inputs to the procedures. Also, the original input to JDAY, 
JDATE and KDAY will be modified during the operation of the 
respective procedures. It should also be noted that in many im- 
plementations of ALGot the use of parameters called by name may 
be more expensive than those called by value. The call by name 
is a far more powerful tool than is necessary for most of the pa- 
rameters of these procedures. For these reasons the following 
changes are suggested: 


1. In procedure JDAY 

change: integer d, m, y, j; 

to: value d, m, y; integer d, m, y, j; 
2. In procedure JDATE 

change: integerj,d,m,y; to: 
3. In procedure KDAY 

change: integer d, m, ya, k; 

to: valued, m, ya; integer d, m, ya, k; 
4. In procedure KDATE 

change: integer k, d, m, ya; 

to: value k; integer k, d, m, ya; 


value j; integer j,d,m,y; 
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ALGORITHM 200 
NORMAL RANDOM 
RicHARD GEORGE* 


Argonne National Laboratory, Argonne, III. 
* Work supported by United States Atomic Energy Commission. 


real procedure NORMAL RANDOM (Mean, Sigma n); 

procedure Random; 

real Mean, Sigma; 

integer 7; 

comment Random is assumed to be a real procedure which 
generates a random number uniform on.the interval (—1, +1). 
The value of n should be greater than 10, in order to approxi- 
mate the normal distribution with accuracy. However, very 
large values of n will increase the running time. The use of 
Mean and Sigma should be obvious. Reference: R. W. Ham- 
ming, Numerical Methods for Scientists and Engineers; 

begin 
integer 7; real sum; 
sum := 0; 
for 7 := step 1 until n do 

sum := sum + Random; 

NORMAL RANDOM := Mean + Sigma X sum X sqrt (3.0/n) 

end NORMAL RANDOM 


CERTIFICATION OF ALGORITHM 200 [G5] 
NORMAL RANDOM 
[Richard George, Comm. ACM 6 (Aug. 1963), 444] 
M. C. Prke (Recd. 3 May 1965) 
Statistical Research Unit of the Medical Research Coun- 
cil, U. College Hospital Medical School, London. 


Algorithm 200 has the following errors: 

(1) The line 

real procedure NORMAL RANDOM (Mean, Sigma n); 
should be changed to 

real procedure NORMAL RANDOM (Random, Mean, 

Sigma, n); 

(2) The line 

procedure Random; 
should be changed to 

real procedure Random; 
With these corrections NORMAL RANDOM has been run success- 
fully on the ICT Atlas computer with the Atlas ALGoL compiler. 
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ALGORITHM 201 
SHELLSORT 

J. BootHroyp 
English Electric-Leo 
England 


Computers, Kidsgrove, Staffs, 


procedure Shellsort (a,n); valuen; real arraya; integer 7; 
comment a/[1] through a[n] of a[l:n] are rearranged in ascending 

order. The method is that of D. A. Shell, (A high-speed sorting 

procedure, Comm. ACM 2 (1959), 30-32) with subsequences 

chosen as suggested by T. N. Hibberd (An empirical study of 

minimal storage sorting, SDC Report SP-982). Subsequences 

depend on m, the first operative value of m. Here m, = 2* — 1 

for 2 < n < 2t!, To implement Shell’s original choice of m, = 

[n/2] change the first statement to m :=.n; 
begin integer 7, j,k, m; real w; 

for 7 := 1 step7.untilndom := 2 i-—1; 

for m := m+ 2 while m # 0do 

begin k := n — m; 
for 7 := 1 step 1 until k do 
begin for i := j step —m until 1 do 
begin if a[i-+m] 2 ali] then go to i; 
w:=ali]; aft] :=ali+m]; alt+m] := wv; 
end 7; 
1: end j 
end ™ 

end Shellsort; 


CERTIFICATION OF ALGORITHM 201 
SHELLSORT [J. BOOTHROYD, Comm. ACM 6 (Aug. 
19638), 445] 
M. A. Batty (Recd 27 Jan. 1964) 
English Electric Co., Whetstone, Nr. Leicester, England 
This algorithm has been tested successfully using the Drucz 
Aueou Compiler. When the first statement of the algorithm was 
replaced by the statement 
mM := Nn; 
to implement Shell’s original choice of m := n/2, a slight increase 
in sorting time was observed with most of the cases tested. 


REMARK ON ALGORITHM 201 [M1] 

SHELLSORT [J. Boothroyd, Comm. ACM 6 (Aug. 1963), 
445] 

J. P. CHANDLER AND W. C. Harrison* (Recd. 19 Sept. 
1969) 

Department of Physics, Florida State University, Talla- 
hassee, FL 32306 


* This work was supported in part by AEC Contract No. AT- 
(40-1)-3509. Computational costs were supported in part by 
National Science Foundation Grant GJ 367 to the Florida State 
University Computing Center. 
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sorting, minimal storage sort- 


Hibbard [1] has coded this method in a way that increases the 
speed significantly. In SHELLSORT, each stage of each sift con- 
sists of successive pair swaps. The modification replaces each set 
of n pair swaps by one “‘save,’’ n — 1 moves, and one insertion. 

Table I gives timing information for ALGOL, Fortran, and 
Compass (assembly language) versions of SHELLSORT and the 


TABLE I. Sortina Times In Seconps For 10,000 RanpoMLY 
ORDERED NUMBERS ON THE CDC 6400 ComPuTER 


Algorithm Source Language 
ALGOL FoRTRAN Compass 
SHELLSORT 53.40 7.18 2.38 
SHELLSORT2 36.56 5.98 1.87 


modified version (called SHELLSORT2), for the CDC 6400 com- 
puter. The savings in time achieved by the modification are 32%, 
17%, and 21%, respectively. The savings are greater than this 
when vectors of more than one word each are being sorted. 

The comparative execution times of the ALgou and ForTRAN 
versions, for these compilers, are quite interesting. 

REFERENCES: 
1. Hisparp, T. N. An empirical study of minimal storage sort- 

ing. Comm. ACM 6 (May 1963), 206. 
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ALGORITHM 202 

GENERATION OF PERMUTATIONS IN LEXICO- 
GRAPHICAL ORDER 

Mox-Kone SHEN 

Postfach 74, Miinchen 34, Germany 


procedure PERLE (S, N, I, E); 

integer array S; integer N; Boolean J; label E; 

comment If the array S contains a certain permutation of the 
N digits 1, 2,---, N before call, the procedure will replace 
this with the lexicographically next permutation. If initializa- 
tion is required set the Boolean variable J equal true, which 
will be changed automatically to false through the first call, 
otherwise set J equal false. If no further permutation can be 
generated, exit will be made to EZ. For reference see BIT 2 
(1962), 228-231; 

begin integer j, u, w; 

if J then begin for j = 1 step 1 until N do S{j] := 3; 


I := false; go to Rose 
end; 
wi= N; 
Lilie: if S[w] < S[w—1] then 


begin if w = 2 then go to £; 
w:=w-—-—1; goto Lilie 
end; 
uw := S[w—1]; 
for j := N step —1 until w do 
begin if S[j] > u then 
begin S[w—1] := Sfj]; 


Sj] := u; goto Tulpe 
end 

end; 
Tulpe: for j := 0 step 1 until (V—w—1)/2 + 0.1 do 

begin u := S[N—J]; 

S[N—j] := S[wty]; S[w+7] := u 

end; 
Rose: 
end PERLE 


CERTIFICATION OF ALGORITHM 202 [G6] 
GENERATION OF PERMUTATIONS IN LEXICO- 

GRAPHICAL ORDER 

{Mok-Kong Shen, Comm. ACM 6 (Sept. 1963), 517] 
Roger W. Exuiotrr (Recd. 5 May 1965) 
The University of Texas, Austin 

The equal sign in the second line after the comment should be 
replaced by a replacement operator. With this minor correction, 
PERLE was translated into ALGou for the CDC 1604. The follow- 
ing times for generating all of the n! permutations of a given vector 


of length n and the following values of rn = tn/ntn-1 [See Comm. 
ACM 6 (Apr. 1962), 209] were observed. 


n 5 6 7 8 
tn(see) .168 1.01 7.08 56.75 
Tn 1.0 1.00 1.00 1.00 
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REMARKS ON: 


ALGORITHM 87 [G6] 

PERMUTATION GENERATOR 
[John R. Howell, Comm. ACM 6 (Apr. 1962), 209] 

ALGORITHM 102 [G6] 

PERMUTATION IN LEXICOGRAPHICAL ORDER 
[G. F. Schrak and M. Shimrat, Comm. ACM 6 (June 
(1962), 346] _ 

ALGORITHM 130 [G6] 

PERMUTE 
[Lt. B. C. Eaves, Comm. ACM 6 (Nov. 1962), 551] 

ALGORITHM 202 [G6] 

GENERATION OF PERMUTATIONS IN 

LEXICOGRAPHICAL ORDER 
[Mok-Kong Shen, Comm. ACM 6 (Sept. 1963), 517] 


R. J. Onp-SmituH (Recd. 11 Nov. 1966, 28 Dec. 1966 and 
17 Mar. 1967) 
Computing Laboratory, University of Bradford, England 


A comparison of the published algorithms which seek to generate 
successive permutations in lexicographic order shows that Algo- 
rithm 202 is the most efficient. Since, however, it is more than twice 
as slow as transposition Algorithm 115 [H. F. Trotter, Perm, 
Comm. ACM 6 (Aug. 1962), 434], there appears to be room for im- 
provement. Theoretically a ‘‘best’’ lexicographic algorithm 
should be about one and a half times slower than Algorithm 115. 
See Algorithm 308 [R. J. Ord-Smith, Generation of Permutations 
in Pseudo-Lexicographic Order, Comm. ACM 10 (July 1967), 452] 
which is twice as fast as Algorithm 202. 


ALGORITHM 87 is very slow. 
ALGORITHM 102 shows a marked improvement. 


ALGORITHM 130 does not appear to have been certified before. 
We find that, certainly for some forms of vector to be permuted, 
the algorithm can fail. The reason is as follows. 


At execution of A[f] := r; on line prior to that labeled schell, f 
has not necessarily been assigned a value. f has a value if, and 
only if, the Boolean expression B[k] > 0 /\ Bk] < B[m] is true for 
at least one of the relevant values of k. In particular when matrix 
A is set up by A{i] := 7; for each 7 the Boolean expression above is 
false on the first call. 


ALGORITHM 202 is the best and fastest algorithm of the 
exicographic set so far published. 


A collected comparison of these algorithms is given in Table I. 
tn is the time for complete generation of n! permutations. Times 
are scaled relative to ts for Algorithm 202, which is set at 100. 
Tests were made on an ICT 1905 computer. The actual time fs 
for Algorithm 202 on this machine was 100 seconds. 7, has the 
usual definition rn = tn/(n+tn-1). 


COLLECTED ALGORITHMS (cont.) 
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TABLE I 
Algorithm tg ty lg % '7 Ys 
87 118 — —_ —_— — _ 
102 2.1 15.5 135 1.03 1.08 1 
130 — _ 


202 17 12.4 100 1.00 1.00 1.00 
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ALGORITHM 203 

STEEP1 

E. J. WASSCHER 

Philips Research Laboratories 

N. V. Philips’ Gloeilampenfabrieken 
Eindhoven-Netherlands 


procedure STEEP (ib, xs, ub, dx, xmin, fmin, n, eps, relax, dxmazx, 
eta, psi, pmax, zeta, FUNK); 

value dz, n, eps, relax, dxemax, eta, psi, pmax, zeta; 

integer 7; 

real fmin, eps, relax, dxmazx, eta, pst, pmax, zeta; 

array lb, xs, ub, dx, xmin; real procedure FUNK; 

comment STEEP1 is a subroutine to find the minimum of a 
differentiable function of n variables, using the method of 
steepest descent. It mainly consists of three parts: (1) a sub- 
routine ATIVE, for computing the partial derivatives, (2) a 
subroutine STEP, for computing the components of an array 
zstep{1:n], which is a new approximation of zmin[l:n], (8) the 
compound tail of the procedure body. Both subroutines are 
only called for once, but by writing the program in this way it 
is quite easy to change the flow of the program. 

Significance of the parameters: (Jb(i), ub(z) are lower and 
upper bounds for the independent variables. xs(z) is the starting 
value for xmin(t). zmin(t) is the computed ith component of 
the minimum, fmin the value of the function in. amin. n is the 
number of variables. eps is a small number which is a measure 
of the desired accuracy—rather of fmin than of xmin(1). FUNK 
(x) is the function to be minimized. The other parameters are 
described in the comments on the three parts mentioned; 

begin integer j; real alpha, p; array xstep, dfdzx, dfpr[i:n]; 
procedure ATIVE; 
begin real beta, gamma, lambda; Boolean A, B; 
comment 1. A_ useful estimate for the derivative is 
f(a+dx) —f(a—dz) 
2dz 
that roundoff noise dominates. This may be achieved by taking 


dz such that eta < Moe < 100 eta, where eta is 
a measure for the relative roundoff error. When | f(x)| < 1 it is 
better to replace the denominator by a constant. In the program 
the parameter psi is used for this purpose. The components 
dx(i) are used as a first guess. When the derivative is 0, the 
program enlarges dx until dx > dxmaz. 


, where dx should be small, but not so small 


ATIVE computes dfdz[1:n] in xmin. The previously computed 
partial derivatives dfpr[1:n] as well as relax are used for relaxa- 
tion purposes. See comment 3. The Boolean A is used when 
x-+dzx or x—dzx crosses the’ boundary wb or lb. In that case fmin 
has to be recomputed afterwards. The Boolean B is of a some- 
what complicated nature. It may be seen that dx has the char- 
acter of an own array for ATIVE. In the neighborhood of the 
minimum this may have the following effect: A step in one 
variable is taken such that f(7+dz) becomes equal to f(«—dz). 
Then in the next call for ATIVE dz has to be doubled, ete. By 
using the Boolean B it is possible to keep dx constant near the 
minimum. 

A similar effect may occur in the large. When f(x) tends to a 
constant for x tending to -++« and —», then for | x | large dx 
has to be taken large. It is only possible to make dz smaller in 
the neighborhood of the minimum by reducing dz after each 
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call of ATIVE. 

From the last two remarks one may deduce that the first 
guess for dv(z) should be made with considerable care. Tabulat- 
ing the function near the starting point may be very helpful; 

begin ATIVE: lambda := 0; 
for j := 1 step 1 until n do 
begin 
large: A := B:= false; if xmin[j] + dz[j] > ub[y] 
then begin xmin{j] := ub[j] — dz[j]; A := true end 
else if xmin[j] — dz[j] < lb[3] 
then begin zmin{j] := lb[j] + dz[j]; A := true end; 
small: xmin[j] := xmin[j] + dz[j]; alpha := FUNK (xmin); 
amin|j] := xmin[j] — 2 X defy]; beta := FUNK (amin); 
zmin[j] := xmin{j] + dz{j]; if A then fmin := FUNK 
(amin); 
A := false; 
if alpha — fmin > 0 A beta — fmin > 0 
then begin B := true; go to comp end; 
gamma := abs((alpha—beta)/(if abs(fmin) < psi then 
pst else fmin)); 
if gamma > 100 X eta then 
begin dz[j] := .2 X dz[j]; go to small end; 
if gamma < eta then 
begin dz[j] := 2 X dz[j];_ if dz[j] < dvmaz then 
go to large else dx[j] := dxmax end 
comp: dfdx{j] := (alpha—beta)/(2 X dx[j]}); 
lambda := lambda + dfdz{j] T 2; 
if — B then dzf{j] := 5 X drf{j] 
end for; lambda := sqrt (ambda); 
for j := 1 step 1 until n do 
dfdx{j] := dfdx{[j|/lambda 
end procedure ATIVE; 


procedure STEP; 

comment 2. A step is taken in all variables at the same time. 
The order of magnitude of the step in one variable should be 
of the order of magnitude of this variable. To accomplish this 
three weighting factors are given to the partial derivatives: 


DrA= e (zy) (see subroutine ATIVE), 


2) |x; |, or when small, zeta, 
3) a number p, which is put equal to 1 at the beginning of the 
program and which tends to 0 at the minimum. 
After a decrease of the function the step is accepted and p is 
multiplied by 1.5. After an increase p is divided by 2. pmaz 
replaces p when p becomes greater than pmaz; 
begin for j := 1 step 1 until n do 
begin alpha := (1—relax) X dfdz[j] + relax X dfpr{j]; 
xstep[j] := amin[j] — p X alpha X 
(if abs(a2min[j]) < zeta then zeta else abs(xmin{j])); 
dfprlj] := alpha, 
if xstep[j] > ub[j] then zstep[j] := ub[j] 
else if xstep[j] < lb[j] then xstep[j] := lb[j] 
end for 
end STEP; 


COLLECTED ALGORITHMS 6(cont.) 


comment 3. In the next part—the compound tail—the calls for 
ATIVE and STEP are organized. The values 1.5 and .5 of the 
factors of p are not very important. During the iteration p gets 
an optimal value, which slowly varies. Only at the end p rapidly 
1 74 


tends to 0. The programme was tested on the functions aei 


(x—y)?—2 
(o+y)?+2’ 


of the zy-plane over 7/4 radians. In the first case a ‘‘gutter’’ 


the latter being the first one except for a rotation 


3g 
coincides with the z-axis, while for z > Oand |y| 2 1 e S$ 0. 


In the second case, where the gutter is along the line z=y, the 
relaxation is especially interesting, because with relax = 0 
(and: pmax= 100) the iteration follows the gutter in an unstable 
way. With starting values c= —14 and y=21 from z=y=26 about 
300 steps were taken along the gutter with p about .0L. With 
relac = 35 and pmax = .5 we had about 150 steps from x=y=23. 
In the gutter itself relax = .85 gave the best results, but in that 
cause the gutter was reached at r=y=63. 

Other parameter values were: zeta = pst = 1, dxmax=100, 
ela = 1077 with eps = 1078 gave fmin in 10 figures correctly and 
amin{t] in 4 to 6 figures for various starting values of xs{z]; 


p:= 1; 

for j := 1 step 1 until n do 

begin. xmin{j] := xs{j]; dfprij] := 0 end; fmin := FUNK 
(amin); 

deriv: ATIVE; 

next: STEP; 


alpha := FUNK (step); 

if alpha < fmin then 

begin fmin := alpha; p:= 1.5 X p; 
if p > pmax then p := pmaz; 
for 7 := 1 step 1 until n do zmin{j] := xstep[y]; 
go to deriv end; 

pi= 5X p; 

if p > eps then go to next; 

comment As p has become smaller than eps this is the end of 
STEEP\.The program ATIVE takes up rather alot of computer 
time by the way it chooses a value for dz(i). A thorough simpli- 
fication is obtained by taking dr(z) as 10f — 3 X abs(xmin{t}), 
where again xmin{z] may be replaced by zeta. Further, at the 
cost of some loss of accuracy, computing time is saved by taking 
fet W—IE 4, 
as far as it differs from STEE PI, is described in algorithm 204, 
STEEP2. Aninteresting compromise between the two methods 
is obtained by interchanging the computation of dz and dfdz in 
ATIVE of STEEP1 and omitting the iteration on dz. This 
routine ATIVE, which has to be used in STEEP, is given by 
J.G. A. Haubrich in algorithm 205; 

end STEEPI1 


an estimate for the derivative. This program, 


CERTIFICATION OF ALGORITHM 203 [4] 

STEEP! [E. J. Wasscher, Comm. ACM 9 (Sept. 1963), 
517| 

Puinip Wauuack (Recd. 25 May 1964) 

Republic Aviation Corp., Farmingdale, L. I., N. Y. 
STEEP was translated into Fortran IV and run on the IBM 

7094. The program was tested on the function z4 + yt — 1, with 

starting values xc = y = 1.5. Other parameter values were those 

suggested in the body of the algorithm. After 17 steps the values 

of the variables were z = .0180, y = .0191, and the function value 

fmin = — .9999999. 
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I feel that good programming practice requires that a count be 
kept of the number of steps taken in ST’EEP1 and the number of 
iterations in ATIVE, with running checks on both these quantities 
to control looping. Counters were set up for this purpose in the 
version of the program I ran. 


CERTIFICATION OF ALGORITHM 203 [E4] 

STEEP1 [E. J. Wasscher, Comm. ACM 6 (Sept. 1963), 517; 
Comm. ACM 7 (Oct. 1964), 585] 

J. M. Varau (Recd. 30 July 1964) 

Computation Center, Stanford University, Stanford, Calif. 


Algorithm 203 was run on the B5000 at Stanford with the neces- 
sary modifications for Burroughs’ Extended AuGou. After some 
testing, the following errors were found. 

1. There is an extra begin in procedure ATIVE. The first 
statement after the comment in this procedure should be changed 
from 

begin ATIVE: lambda := 0; 
to 

lambda := 0; 
[It was the author’s original intention that this begin be not in 
bold-face but that it should be part of the label begin ATIVE 
inserted to clarify the program.—Ed.] 

Also, there is a missing semicolon in procedure ATIVE at the 
end of the line preceding comp: and procedure STEP has an un- 
necessary begin-end block. 

2. Because the domain of definition of the function FUNK 
is bounded by the rectangular hyperbox Jb[j] S z[j] S ubd{y], 
j = 1, 2,--+,, before giving a new direction in which to pro- 
ceed, the value of amin is checked (in ATIVE, under large:). If, 
for any j, xmin{j] is within dz[y] of the boundary, xrmin[j] is changed 
so that it is exactly dx[j] from the boundary. However, if the mini- 
mum value of FUNK occurs at just such a place (say right at the 
boundary), then a step will be made from this new position back 
to the boundary. Then the new xmin|[j] will again be within dz[j] 
of the boundary, so it is moved away, and so on forming a loop. 
To correct this, the old value of emin[j] should be saved (in xstep[y], 
for example) and below, when A is tested, the function value set 
equal to the minimum of values at amin and xstep. The author, 
when A was true (i.e. when such a shift had been made), merely 
set the function equal to the value at xmin. 

Specifically, this means changing the lines following large: to 

A := B := false; if xmin(j] + dz[j| > ub[j] then, 

begin 

xstep[j] := xmin[y]; 


xmin[j| := ub[j] — dz[y]; A := true 
end 
else if zmin[j] — dz[j] < lb{j] then 
begin 

astep(j| := xmin{[j]; 

zsmin(j| := lb(j] + dz[j]; A := true 
end; 


and the conditional statement involving A (8rd line after small:) to 
if A then 
begin 
gamma FUNK (amin); 
if fmin S&S gamma then xmin[j] := xstep[j] 
else fmin := gamma 
end; 

3. Also in ATIVE, under comp:, the derivative approximations 
are all normalized after the for loop by division by lambda. How- 
ever, lambda will be zero if all dfdz[j] are zero to working accuracy. 
So we should only divide by lambda when it is not zero. 


WA Ii 


COLLECTED ALGORITHMS (cont.) 


Specifically, this means inserting the line 
if lambda ~ 0 then 

before the third line from the end of procedure ATIVE. 

With these corrections, the algorithm did run successfully. 
It should also be mentioned that procedures ATIVE and STEP 
could just as well be blocks with labels ATIVE and STEP rather 
than procedures, with the calls on them changed to go to ATIVE 
and go to STEP. 


203-P 3- 
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ALGORITHM 204 

STEEP2 

E. J.. WASSCHER 

Philips Research Laboratories 

N. V. Philips’ Gloeilampenfabrieken 
Eindhoven-Netherlands 


procedure STEEP2 (lb, xs, ub, dz, xmin, fmin, n, eps, relax 
dxmax, pmax, zeta, FUNK); 

value dz, n, eps, relax, demax, pmax, zeta; 

integer 7; 

real dz, fmin, eps, relax, drmax, pmax, zeta; 

array lb, xs, ub, xmin; real procedure FUNK; 

comment dz should now be taken about 10f — 3, dymaz could 
be taken equal to 1. As the program is equal to STEEP! after 
the declaration of the procedure ATIVE, the AuGou description 
is cut off there; 

begin integer j; real alpha, p; 
array xstep, dfdz, dfpr [1:n]; 

procedure ATIVE; 

begin real beta, lambda; lambda := 0; 
for j := 1 step 1 until n do 

begin alpha := dx X (if abs(xzmin|[j]) < drmax 
then dzmaz else abs (xmin|[j])); 


if zmin[y] + alpha > ub[j] then alpha := —alpha; 
xzmin[j] := zmin{j] + alpha; beta := FUNK (xmin); 
zmin|j| := xmin[j] — alpha; 


dfdz[j] := (beta — fmin)/alpha; 

lambda := lambda + dfdz{j] T 2 
end for; lambda := sqrt (lambda); 

for j := 1 step 1 until n do dfdz[j] := dfdz[j)/lambda; 
end procedure ATIVE 
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ALGORITHM 205 

ATIVE 

J.G. A. HauBricu 

Philips Research Laboratories 

N. V. Philips’ Gloeilampenfabrieken 

Eindhoven-Netherlands 

procedure ATIVE; 

begin real beta, lambda; Boolean A; 

comment This routine may replace ATIVE in STEEP. The 
significance of eta has slightly changed; 

lambda := 0; 

for j := 1 step 1 until n do 

begin A := false; alpha := dz{j]; 

if xmin|j] + alpha > ub[j] then 

begin zmin[j] := ub[j] — alpha; A := true end 

else if xmin{j] — alpha < Ib[j] then 

begin xmin[j] := lb[j] + alpha; A := true end; 


zmin[j] := xamin[j] + dz[j]; alpha := FUNK (amin); 

zmin{j] := xamin[j] — 2 X dz[j]; beta := FUNK (amin); 

zmin[j] := xmin[j] + dzlj]; if A then fmin := FUNK 
(amin); 


dfdz(j] := (alpha—beta)/(2 X dz[j]); 

lambda := lambda+-dfdzx{j] T 2; 
if alpha — fmin > 0 A beta — fmin > 0 then go to end; ' 
beta := abs((alpha—beta)/(if abs(fmin) <psithen psi else fmin)); 
if beta > eta then dz{j] := .3 X dz[j] else 
begin dz[j] := X d3z[j];_ if dx[j] > demaz thendz[j|: = demaz end; 
end: end for; 
lambda := sqrt (lambda); 
for j := 1 step 1 until n do dfdz[j] := dfdz{j]/lambda 
end procedure ATIVE 


REMARK ON ALGORITHM 205 [E4] 

ATIVE [J. G. A. Haubrich, Comm. ACM 6 (Sept. 1963), 
519] 

KE. J. Wasscuer (Recd. 23 Nov. 1964) 

Philips Computer Center, N. V. Philips’ Gloeilampen- . 
fabrieken, Eindhoven, Netherlands 
There is a misprint in this Algorithm. The first statement in 

the fifth line from the end of the procedure ATIVE should read: 

dx[j] := 3 X daly]; 
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ALGORITHM 206 

ARCCOSSIN 

Misako Konpa 

Japan Atomic Energy Research Institute, Tokai, Ibaraki, 
Japan 


procedure ARCCOSSIN (x) Result :(arccos, arcsin); 

value x; 

real 2, arccos, arcsin; 

comment This procedure computes arccos(x) and arcsin(x) for 
—1lsSzS1. The constant 2-7 depends on the word length and 
relative machine precision, and may be replaced by a variable 
identifier. Alarm is the procedure which messages that x is in- 
valid. 
The approximation formula used here was coded for MUSA- 
SINO-1 in its own language at the Electrical Communication 
Laboratory Tokyo. This algorithm was translated into FAP and 
successfully ran on an IBM 7090; 

begin real A, 71, 22,a; integer r; 
if abs(z) > 1 
then go to Alarm 
else if abs(z) > 2T (—27) 

then go to L1 


else begin arccos := 1.5707963; go to L3 


end; 
Li: ifz=1 
then begin arccos := 0; go to L3 
end 
else ifz = — 1 
then begin arccos := 3.1415926; goto L3 
end 


else begin A := 0; xl := 2; 
for r := 0 step 1 until 26 do 
begin if 71<0 
then begin a := 1; 22 := 1—2 X xl 12 end 


else begin a := 0; 22 := 2X x1 —2 —1end; 
A:=A+aX 2 T(-r-1); 
xl := 22 
end; 
arccos := 3.1415926 « A; 


end; 
£3: arcsin := 1.570963 — arccos; 
end ARCCOSSIN 


REMARK ON ALGORITHM 206 [B1] 

ARCCOSSIN [Misako Konda, Comm. ACM 6 (Sept. 
1963), 519] 

Henry J. BowLpEN (Recd. 30 Sept. 1964 and 5 Nov. 1964) 

Westinghouse Electric Corp., R&D Ctr., Pittsburgh, Pa. 
Algorith 1 206 was transcribed into Burroughs Extended ALGoL 


after correcting one typographical error, namely the value of 
1/2in the statement labeled L3, which should be 1.5707963. 


CACM 
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Results were obtained for a selection of values of the argument 
between 0 and 1. Accuracy is about 7-+ decimal digits over the 
entire range, by comparison with the tables of inverse sines in 
[Handbook of Mathematical Functions, National Bureau of Stand- 
ards Applied Mathematics Series #55, U.S. Government Printing 
Off., Washington, D.C., June 1964, 203-212]. Average execution 
time was 43 milliseconds. 

The efficiency of the procedure could be significantly improved 
by avoiding the computation of a X 27 (—r—1). Powers of 0.5 
may be accumulated within the loop, and the modification of A 
may be skipped entirely when a = 0. Actually, if efficiency is im- 
portant, procedures using the intrinsic arctan and the common 
trigonometric identities are preferable. Such routines, on the 
B-5000, give full machine accuracy (11-+ significant figures) in 
about 2 milliseconds execution time. 
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ALGORITHM 207 

STRINGSORT 

J. BooTHROYD 

English Electric-Leo Computers, Ltd. 
Staffordshire, England 


procedure stringsort (a, n); comment elements a[l] --- a[n] 
of a[1:2n] are sorted into ascending sequence using a[n+1] --- 
a{2n] as auxiliary storage. Von Neumann extended string logic 
is employed to merge input strings from both ends of a sending 
area into output strings which are sent alternately to either 
end of a receiving area. The procedure takes advantage of 
naturally occurring ascending or descending order in the origi- 
nal data; 

value n; integer n; array a; 

begin integer d, 7, j, m, u, v, 2; imteger array c[—1:1]; 
switch p := jzl, stri; switch g := merge, j22; 

oddpass: @:=1; jg:=n; e[-l]:=n+1; cl] := 2X n; 

allpass: d:= 1; goto firststring; 

merge: if a[t] 2 alz] 

then begin go to p[v]; 
jel: if a[j] 2 alz] 
then 7j: begin if a[z] 2 afy] 


then sir j: begin a[m] := aly]; 
j:=j—-— lend 

else str 1: begin alm] := a[z]: 
t:=27-+ 1 end 

end 
else begin v := 2; go to sir i end 
end 
else-begin u := 2; 


jz2: if alj] 2 alz] 
then go to sir j 


else begin d := —d; c[(d] := m; 
firststring: m := c[—d]; 
v:=u:=1; 
go to 7j 
end 


end; 
z:=m; m:=m+d; if 7 2 i then goto qu]; 
ifm > n+ 1 then begin comment evenpass; 7 := n + 1; 
j:= 2X n; c[—-1] := 1; cfl] := n; go to 
allpass end 
else if m < n-+ 1 then go to oddpass 
end stringsort; 


CERTIFICATION OF ALGORITHM 207 [M1] 

STRINGSORT [J. Boothroyd, Comm. ACM 6 (Oct. 1963), 
615] 

CHARLES R. Buarr (Recd. 31 Jul. 1964) 

Department of Defense, Washington 25, D. C. 
STRINGSORT compiled and ran successfully without correc- 


tion on the Aupap translator for the CDC 1604A. The following 
sorting times were observed. 


Number of Items 
10 
20 
50 
100 
200 
500 
1000 
2000 
5000 
10000 
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Time in Seconds 
0.03 
0.05 
0.20 
0.38 
1.03 
3.22 
6.43 

12.85 
38.72 
90.72 


0 
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ALGORITHM 208 
DISCRETE CONVOLUTION 
Witu1amM T. ForEMAN, JR. 
Collins Radio Co. 

Newport Beach, Calif. 


procedure Discrete Convolution (m, n, prs) result: (Conv); 

integer m,n; real procedure prs; real array conv; 

comment This procedure finds the probability distribution of 
the sum of m independent variables, each with a known distribu- 
tion over the nonnegative integers. A real procedure prs with 
results pr[k] is assumed to find each probability distribution in 
succession. The maximum sum for which probabilities are 
computed must be fixed by the user. The number of iterations 
is roughly m2n/2. The procedure prs will in general depend on 
additional parameters and should include the read-in of the 
parameters for that distribution. It may include the selection 
of one function from a set; 

begin integer 7, j, k, ixl, 122; 

real array prob (1:2, 0:m), pr[0:m]; 

Z:= 1; izl:= 1; ia2:= 2; prs (m) result: (pr); 

for j := 0 step 1 until m do prob{iz1, j] := prijl; 

for 7 := 2 step 1 until n do 


begin 
if ixl = 1 then begin iz2 := 1; i271 := 2 end 
else begin ix2 := 2; izl := 1 end 


prs (m) result: (pr); 
for j := O step 1 until m do 
begin 
problixl, j] := 0; 
for k := 0 step 1 until j do 
problixl, j] := prob{ixl1, 7] + prik] X probliz2, j—k] 
end j 
end 2; 
for j := 0 step 1 until m do conv[j] := probd{izl, 3] 
end Discrete Convolution 
comment The convolution of discrete probability series is 
isomorphic to the multiplication of polynomials. A useful vari- 
ation is to omit the parameters 7, » and have prs recognize 
the end of input. A ForTran program using this procedure has 
been run on the IBM 7090 to find the sum of queue lengths in a 
teletype switching center, where messages arrived according 
to the Poisson distribution and message lengths were distributed 
negative-exponentially. The following was used as the prob- 
ability procedure; 
procedure prs (m) result: (pr); 
value m; procedure read; 
real array pr; integer m; 
begin. real trafficrate, linespeed, rho; integer j; 
read (trafficrate, linespeed) ; 
rho := trafficrate/linespeed ; 
pr[0] : 1 — rho; 
for j := 1 step until m do pr[j] := rho X pr[j—1] 
end prs 
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ALGORITHM 209 

GAUSS 

D. IsBETSON, 

Elliott Brothers (London) Ltd., 

Elstree Way, Borehamwood, Herts., England 


real procedure Gauss(x); value xz; real x; 
comment Gauss calculates (1/1/27) J” « exp (—4u?) du by means 
of polynomial approximations due to A. M. Murray of Aberdeen 
University ; 
begin real y, z, w; 
if z = 0 then z := 0 
else 
begin y := abs(x)/2; 
ify 2 3thenz := 1 
else if y < 1 then 
begin w := y X Y; 
z:= ((((((((0.000124818987 K w 
—0.001075204047) X w +0.005198775019) K w 
—0.019198292004) X w +0.059054035642) & w 
—0.151968751364) & w +0.319152932694) *K w 
—0.531923007300) X w +0.797884560593) XK y xX 2 
end 
else 
begin y :=y— 2; | 
z2:= (((((((C(((((—0.000045255659 X y 
+0.000152529290) * y —0.000019538132) x % 
—0.000676904986) < y +0.001390604284) x y 
—0.000794620820) x y —0.002034254874) x y 
+0.006549791214) « y —0.010557625006) x y 
+0.011630447319) < y —0.009279453341) xX y 
+0.005353579108) X y —0.002141268741) x y 
+0.000535310849)  y +0.999936657524 
end 
end; 
Gauss := if z > 0 then (z+1)/2 else (1—z)/2 
end Gauss; 


CERTIFICATION OF ALGORITITM 209 

GAUSS [D. Ibbetson, Comm. ACM 6 (Oct. 1963), 616] 
(Pvt.) G. W. GLADFELTER (Recd 4 Nov. 63) 
RA17667701, Ist Inf. Battle Group US. Military Academy 
(9822), West Point, N.Y. 


The algorithm was translated into ForTRAN for the GE 225 and 
used to publish a table of the error function. No errors were found 
in the algorithm and the table produced agreed with the published 
tables at hand (6 significant figures). 


CERTIFICATION OF ALGORITHM 209 [S15] 

GAUSS [D. Ibbetson, Comm. ACM 6, Oct. 1963, 616] 

M. C. PIKE 

Statistical Research Unit of the Medical Research Council, 
University College Hospital Medical School, London, 
England 


This procedure was tested on an Elliott 803 computer using the 
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standard Elliott ALGoL compiler. The expression 
| 2X Gauss (x) — 1 


was evaluated for z = 0(.01)6 and the answers checked with those 
given in Tables of Probability Functions, vol. II, US. National 
Bureau of Standards, Washington, D.C., 1942, where they are 
given to 15 decimal places. There was a maximum error of 1 in 
the 8th decimal place. 


REMARKS ON: 

ALGORITHM 123 [815] 

REAL ERROR FUNCTION, ERF(x) 
[Martin Crawford and Robert Techo Comm. ACM 6 
(Sept. 1962), 483] 


ALGORITHM 180 [815] 
ERROR FUNCTION—LARGE X 
[Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 314] 


ALGORITHM 181 [S815] 
COMPLEMENTARY ERROR FUNCTION— 
LARGE X 

[Henry C. Thacher Jr. Comm. ACM 6 (June 1963), 315] 


ALGORITHM 209 [S815] 
GAUSS 
[D. Ibbetson. Comm. ACM 6 (Oct. 1963), 616] 


ALGORITHM 226 [815] 
NORMAL DISTRIBUTION FUNCTION 
[S. J. Cyvin. Comm. ACM 7 (May 1964), 295] 


ALGORITHM 272 [S15] 
PROCEDURE FOR THE NORMAL DISTRIBUTION 
FUNCTIONS 

[M. D. MacLaren. Comm. ACM 8 (Dec. 1965), 789] 


ALGORITHM 304 [815] 

NORMAL CURVE INTEGRAL 
{I. D. Hill and 8. A. Joyce. Comm. ACM 10 (June 
1967), 374] 


I. D. Hitu-anp 8S. A. Joyce (Reed. 21 Nov. 1966) 

Medical Research Council, 

Statistical Research Unit, 115 Gower Street, London 
W.C.1., England 


These algorithms were tested on the ICT Atlas computer using 
the Atlas ALGou compiler. The following amendments were made 
and results found: 


ALGORITHM 123 
(i) value x; was inserted. 
(ii) abs(7) < 1»—10. was changed to Y— T= Y 
both these amendments being as suggested in [1]. 
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(iii) The labels 1 and 2 were changed to L1 and L2, the go to 
statements being similarly amended. 

(iv) The constant was lengthened to 1.12837916710. 

(v) The extra statement x := 0.707106781187 X x was made 
the first statement of the algorithm, so as to derive the 
normal integral instead of the error function. 

The results were accurate to 10 decimal places at all points 
tested except z = 1.0 where only 2 decimal accuracy was found, as 
noted in [2]. There seems to be no simple way of overcoming the 
difficulty [3], and any search for a method of doing so would 
hardly be worthwhile, as the algorithm is slower than Algorithm 
304 without being any more accurate. 


ALGORITHM 180 
(i) T := —0.56418958/x/exp(v) was changed to 
T := —0.564189583548 X exp(—v)/x. This is faster and also 
has the advantage, when »v is very large, of merely giving 0 
as the answer instead of causing overflow. 
(ii) The extra statement x := 0.707106781187 X x was made 
as in (v) of Algorithm 123. 
(iii) form := m+ 1 was changed to form :=m-+2. m+1 
is a misprint, and gives incorrect answers. 
The greatest error observed was 2 in the 11th decimal place. 


ALGORITHM 181 
(i) Similar to (i) of Algorithm 180 (except for the minus sign). 
(ii) Similar to (ii) of Algorithm 180. 
(iii) m was declared as real instead of integer, as an alternative 
to the amendment suggested in [4]. 
The results were accurate to 9 significant figures for x < 8, 
but to only 8 significant figures for z = 10 and x = 20. 


ALGORITHM 209 
No modification was made. The results were accurate to 7 decimal 
places. 


ALGORITHM 226 
(i) 10 Tt m/(480Xsqrt(2X3.14159265)) was changed to 
10 fT m X 0.000831129750836. 
(ii) for 7 := 1 step 1 until 2 X n do was changed to 
m:=2Xn; fori := 1 step 1 until m do. 
(iii) —(tXb/n) T 2/8 was changed to 
(iv) iff =2Xn-—1 waschanged to ifi =m—1 
(v) b/(6XnXsqri(2X3.14159265)) was changed to 
b/(15.0397696478Xn). 
Tests were made with m = 7 and m = 11 with the following 
results: 


Number of significant Number of decimal 
¥ figures correct places correct 
m= 7 m= il m=7 m = 11 
--0.5 7 11 7 11 
—1.0 7 10 7 10 
—1.5 7 10 8 10 
—2.0 7 9 8 10 
—2.5 6 9 8 11 
—3.0 6 7 8 9 
—4.0 5 7 10 11 
--6.0 2 1 12 10 
--8.0 0 0 11 9 


Perhaps the comment with this algorithm should have referred 
to decimal places and not significant figures. To ask for 11 sig- 
nificant figures is stretching the machine’s ability to the limit, 
and where 10 significant figures are correct, this may be regarded 
as acceptable. 


—(ixb/n) T 2X 0.125. 
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ALGORITHM 272 
The constant .99999999 was lengthened to .9999999999. 

The accuracy was 8 decimal places at most of the points tested, 
but was only 5 decimal places at z = 0.8. 


ALGORITHM 304 
No modification was made. The errors in the 11th significant figure 
were: 


abs(zx) x > 0 = upper x > 0 # upper 
0.5 1 1 
1.0 1 2 
1.5 218(5) 2 
2.0 25° (0) 4 
3.0 0 0 
4.0 2 3 
6.0 6 0 
8.0 14 0 
10.0 23 0 
20.0 35 0 


* Due to the subtraction error mentioned in the comment section 
of the algorithm. Changing the constant 2.32 to 1.28 resulted in 
the figures shown in brackets. 


To test the claim that the algorithm works virtually to the 
accuracy of the machine, it was translated into double-length 
instructions of Mercury Autocode and run on the Atlas using the 
EXCHLF compiler (the constant being lengthened to 
0.398942280401432677939946). The results were compared with 
hand calculations using Table II of [5]. The errors in the 22nd 
significant figure were: 


abs(x) xz > 0 = upper x > 0 # upper 
1.0 2 3 
2.0 7 1 
4.0 2 0 
8.0 8 0 


Timings. Timings of these algorithms were made in terms of 
the Atlas “Instruction Count,’ while evaluating the function 100 
times. The figures are not directly applicable to any other com- 
puter, but the relative times are likely to be much the same on 
other machines. 


COLLECTED ALGORITHMS cont.) 


Instruction Count For 100 EvaLUATIONS 


Algorithm number 


123 | 180 | 181 | 209 226 272 | 304% | 304> 


—— |} — 7. | | — | —_ | — | |! SF 


4.0 27 39 9 9004 | 25 67 44 
6.0 15 30 6 14004 |; 16 49 23 
8.0 9 28 7 21007 | 18 44 11 
10.0 10 25 5 27002 | 16 38 11 
20.0 9 22 5 6500¢ | 16 32 11 
30.0 9 9 5 | 109004 | 16 11 11 


® Readings refer to + > 0 = upper. 

>’ Readings refer to + > 0 # upper. 

* Time to produce incorrect answer. A count of 120 would fit a 
smooth curve with surrounding values. 

4100 times Instruction Count for 1 evaluation. 


Opinion. There are advantages in having two algorithms 
available for normal curve tail areas. One should be very fast and 
reasonably accurate, the other very accurate and reasonably 
fast. We conclude that Algorithm 209 is the best for the first 
requirement, and Algorithm 304 for the second. 

Algorithms 180 and 181 are faster than Algorithm 304 and may 
be preferred for this reason, but the method used shows itself in 
Algorithm 181 to be not quite as accurate, and the introduction 
of this method solely for the circumstances in which Algorithm 
180 is applicable hardly seems worth while. 


Acknowledgment. Thanks are due to Miss I. Allen for her 
help with the double-length hand calculations. 
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ALGORITHM 210 

LAGRANGIAN INTERPOLATION 

GrorcE R. ScHuBERT* 

University of Dayton, Dayton, Ohio 
“Undergraduate research project, Computer Science Program, Univ. of 

Dayton. 

procedure LAGRANGE (N,u, X, Y, ANS); real array X, Y; 
integer VN; real u, ANS; 

comment This procedure evaluates an Nth degree Lagrange 
polynomial, given N + 1 data coordinates, and u the value 
where interpolation is desired. X is the abscissa array and Y 
the ordinate array. ANS is the resultant value of the function 
at u. The notation is that used in R. W. Hamming, Numerical 
Methods for Scientists and Engineers, pp. 94-95 (McGraw-Hill 
Book Company, Inc., 1962); 

begin integer 7,7; real L; 
ANS := 0.0; 
for j := step 1 until N+1 do 

begin L := 1.0; 
for 7 := step 1 until N+1 do 

begin if i ~ jthen L := LX (u—X{[t})/(X[)J—X[z)) 

end; 
ANS := ANS +L YU{j] 

end end 
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ALGORITHM 211 

HERMITE INTERPOLATION 
GrorGE R. Scuusert* 

University of Dayton, Dayton, Ohio 


* Undergraduate research project, Computer Science Program, Univ. of 
Dayton. 


procedure HERMITE (n,u, X,Y, Y1, ANS); real array X, Y, 
Vig. ° 

integer n; real u, ANS; 

comment This procedure evaluates a(2n+1)th degree Hermite 
polynomial, given the value of the function and its first deriva- 
tive at each of n + 1 points. X is the abscissa array, Y the 
ordinate array, and Y1 the derivative array. ANS is the interpo- 
lated value of the function at u. REFERENCE: R.W. Hamming, 
Numerical Methods for Scientists and Engineers, pp. 96-97 (Mc- 
Graw-Hill Book Company, Inc., 1962); 

begin integer i,j; real h, a; 


ANS := 0.0; 
for 7 := 1 step 1 until n + 1 do 
begin h := 1.0; a := 0.0; 


for 7 := 1 step 1 until n + 1 do 
begin if 7 = j then go to out; 

heh X (u-—X[t))12/ XG]-X Ee) 12; 

a:= a+ 1.0/(XP)]-X[i); 
out: end; 

ANS := ANS +h X ((X[j]-u)X (2X%aX YUs]— V1) + YE) 
end end 


CERTIFICATION OF ALGORITHM 211 

HERMITE INTERPOLATION [George R. Schubert, 
Comm. ACM, Oct. 1963] 

THomas A. DwYER 

Argonne National Laboratory, Argonne, IIl. 


The body of HERMITE was transcribed for the Dartmouth 
ScaLp processor for the LGP-30 computer and ran successfully 
without corrections. It was tested using the error function and its 
derivatives. Roundoff error in the LGP-30 began to appear for 
values of n greater than 3. For n equal to 2 (third degree poly- 
nomial) the interpolated value agreed with the function within 
machine limitations (six significant figures) for steps in the 
argument data of 0.005. 
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ALGORITHM 212 
FREQUENCY DISTRIBUTION 
Maucotm D. Gray 

The Boeing Co., Seattle, Wash. 


procedure FREQUENCY (N, A, B, IUL, K, X, KA); 
integer N, JUL; integer array KA; real A, B, K; 
real array X; 
comment Given a set X of variables in some interval I = [a, b] 
such that a S min z, maxx S b, FREQUENCY determines the 
frequency distribution of X over k equal, half open subintervals 
of J. The interval J is transformed to the interval J = [0, k] 
with unit subintervals by x’ = (#;—a)/[(b—a)/k], «= 1,2, ---, 
n, and considering x’ = L X M, L and M integers. The value 
£ then immediately determines the subinterval and M is used 
for boundary points. If JUL = 0, the subintervals are open 
on the upper end, except the kth. On entry, the array KA is 
assumed identically zero; on return, KA[i] contains the fre- 
quency of X in the 7th subinterval; 
begin integer 1, lL; real BAK, XP; 
BAK := (B—A)/K; 
for 1 := 1 step 1 until N do begin 
XP := (X[t]-A)/BAK; 
L. := entier (XP); 
if XP = L then goto p2 else L := 
p2: if JUL = 0 then go to 73 else if L 
go to Z5; 
ps: if XP ~# KthenL := L141; 
pd: KA[L] := KA[L] + 1; 
end; 


end FREQUENCY 


L+1; goto pd; 
= Othen L :=L+1; 
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ALGORITHM 213 
FRESNEL INTEGRALS 
Matcotm D. GRAY 

The Boeing Co., Seattle, Wash. 


real procedure FRESNEL (w, 8, C); value w; real S, C; 
comment FRESNEL computes the Fresnel sine and cosine in- 


tegrals S(w) = J” sin [(#/2)t?] dt and C(w) = [cos [(x/2)#] dt 
using the series expansions 


(—1)tHy2i-1 


Sw) = 2. Ga pew! 


and 


_ 20 Dee 
oO ” & (ai — 3) (28 — 2)! 


for |w| < /22/r and « = rw*/2, and using the asymptotic series 


S(w) = a— =. [P(x) sin (x) + Q(z) cos (x)], 


Cw) =a— = [P(z) cos (x) — Q(x) sin (x)] 


where |w| = 0/22/x, x = rw*/2, 


Oi SN ages SO on 


a (2x) 2-2 a (22) 2i-1 ? 


and n!l = n(n—2)(n—4):--1. If w = 0, then a = $, or if w < 0, 


This algorithm is a translation of a FAP coded subroutine 
currently in use on the IBM 7094 at the Boeing Company. The 
FAP program yields the following errors when tested at 0.05 
increments of x: 


x AS AC 
0.00, 1.00 <1 x 107-7 <1 xX 1077 
1.05, 8.65 <1 x 1076 <1 xX 1076 
8.70, 10.30 3 xX 1078 2X 10-8 
10.35, 11.00 5 X 1078 4 xX 1076 
11.05, 12.15 <1 x 1078 3 X 1078 
12.20, 15.00 <1 x 1076 <1 x 1076 


where AS and AC are the approximate average absolute devi- 
ations (over the range) from the reference. The user must supply 
S(w) = C(w) = +4 if w > +o. Rererences: ALGORITHMS 
88-90, J. L. Cundiff, Comm. ACM, May 1962; Born, M. and 
Wolf, E., Principles of Optics, Pergamon Press (1958), pp. 
369-431 ; 

begin real x, 72, eps, term; 
z= w X w/0.6366198; 


integer n; eps := 0.000001; 


a2 := —2& X 2; tfx = 11.0 then go to asymp; 
begin real frs, frst; 
frs := 2/38; n:= 5; term := 2% X 22/6; 


frst := frs + term/7; 


loops: if abs(frs—frst) S eps then go to send; frs := frsv; 
term := term X x2/n/(n—1); frei :=frs + term/(n+n+1); 
n:=n+2; goto loops; 

send: S := frst X w; end; 
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begin real fre, fre; 
fre := 1; n:= 4; term := 22/2; fret := 1 + term/5; 
loope: if abs(fre—frei) S eps then go to cend; fre := fret; 
term := term X 22/n/(n—1); frei := fre + term/(n+n+1); 
n:=n+2; goto loopc; 
cend: C := frei X w; end; go to aend; 
asympt: begin real S1, S2, half, temp; integer 7; 
22 := 4X 22; term := 3/2; Sl := 1+ term; n:= 8; 
for 7 := 1 step 1 until 5 do begin n := n + 4; 
term := term X (n—7) X (n—5)/x2; S1 := S1 + term; 
if abs(term) S eps then go to next; end 27; 


nett: fori := 1 step 1 until 5 do begin n := n + 4; 
term := term X (n—5) X (n—8)/x2; S2 := S2 + term; 
if abs(term) S eps then go to final; end 1; 

final: ifw <Othenhalf := —0.5elsehalf := 0.5; term := cos(x); 


temp := sin(x); «2 := 3.1415927 XK w; 
C := half + (tempXS1—termXS2)/x2; 
S := half — (termxXS1+tempXS82)/2z2; 
end; 


aend: end FRESNEL 


CERTIFICATION OF ALGORITHM 213 [S820] 
FRESNEL INTEGRALS [M.D. Gray, Comm. ACM 6 
(Oct. 1963), 617] 
Malcolm Gray (Recd. 29 May 1964 and, revised, 11 June 
1964) 
Computer Science Div., Stanford U., Stanford, Calif. 
(now at The Boeing Company, Seattle, Wash.) 
Necessary changes to the algorithm are: 
(1) in the first line, replace 
real S,C; with real w,S,C; 
(2) in the formula for P(x), replace (—7)*#! with (—1)*# 
(8) the statement beginning 
loope: if abs(fre—fret) 
should read 
loope: if abs(fre—fret) 
(4) in the body, replace the line 


next: fori := 1 step 1 until 5 do begin n := n + 4; 
with the lines 
next: term := S2 := 0.5/4; n := 4; 


for 7 := 1 step 1 until 5 do begin n := n + 4; 

The procedure (with the above changes) was executed on the 
Burroughs B5000 at Stanford University and gave results as 
indicated in the algorithm. 

Communications from Helmut Lotsch of the W. W. Hansen 
Laboratories, Stanford University, and from Harold Butler of 
the Los Alamos Scientific Laboratory, Los Alamos, New Mexico, 
state that they found these same errors, and after the corrections 
were made, similar results were obtained. Mr. Lotsch’s work was 
done on the B5000 and Dr. Butler’s work was done on the IBM 
7090. 
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ALGORMITH 214 

q-BESSEL FUNCTIONS I,(t) 

J. M.S. Sim6zes PERErRA 

Gulbenkian Scientific Computing Center, Lisbon, Portugal 


procedure qBessel (t, q, n, j, 8); integer n, j; real t, q, 8; 
array 8; 

comment This procedure computes values of any q-Bessel func- 
tion I,(t) for n integer (positive, negative or zero) by the use 
of the well-known expansion 


= hk +4 nth) nth) pntek 


Te gala 

where |g] <1, (g)n = (1—q)(1—@) «++ (l—@"),  (q)o = 1 and 
1/(q)-n = 0 (n=1, 2, 3,---). (See L. Carlitz, The product of 
q-Bessel functions, Port. Math. 21 (1962), 5-9.) Moreover, j 
denotes the number of terms (at least 2) retained in the summa- 
tion, and s[¢] stands for the sum of the first i+1 terms of the 
expansion. This procedure has been translated into ForTRAN 
for the IBM 1620 and run successfully; 

begin integer k, m, p; real c, u; m := abs(n); c := 1; if 
n = Othen goto A; 

for p := 1 step 1 until mdoc :=c X (l—qfp); ifn <0then 
go to B; 

A: u:= qT (nX(n—1)/2) X (tfn)/e;  8[0] := u; 

for k = 1 step 1 until j do 

beginu := u X qf (n+2Xk—2) X (éf2)/((l1—atk)X 1—at (n+k))); 
s[k] := s[k—1] + u end; 

B: w:= qt((m—1)Xm/2) X tt (n4+2Xm)/e; s[m] := u; 

fork := m+ 1 step 1 until j do 

begin u := u X gf (n+2Xk—2) X (¢f2)/((l1—qtk) (1—¢t (n+k))); 
s{k] := s[k-—1] + u end 

end 


REMARK ON ALGORITHM 214 

q-BESSEL FUNCTIONS J,(é) [J. M. 8S. Simées Pereira, 
Comm. ACM 6 (Nov. 1963), 662] 

J. M.S. Simézs Pererra (Recd 6 Jan 1964) 

Gulbenkian Scientific Computing Center, Lisbon, Portu- 
gal 
Corrections: 

1. Insert a dummy statement labeled C just before the final end. 


2. Add a statement go to C just before the label B. 
3. Add a colon in the clause for k := 1 step 1 until j do... 
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ALGORITHM 215 
SHANKS 
Henry C. THacHer, Jr.* 


Argonne National Laboratory, Argonne, IIl. 
* Work supported by the U. 8. Atomic Energy Commission 


procedure Shanks (nmin, nmaz, kmaz, 8); 

value nmin, nmaz, kmazx; 

integer nmin, nmaz, kmaz; 

array S; 

comment This procedure replaces the elements S[nmin] through 
S[nmax—2Xkmaz] of the array S by the e[kmaz] transform of 
the sequence S. The elements S[nmax—2xXkmex+1] through 
S[nmaz—1] are destroyed. The e[k] transforms were discovered 
by D. Shanks (J. Math. Phys. 84 (1955), 1-42). e[1] is equivalent 
to the (delia) T 2 transformation. The e[k] transforms are par- 
ticularly valuable in estimating B in sequences which may be 
written in the form S[n] = B+ >° afi] X gfi] Tn (@=1,2, °°", 
k). 

The transformation is carried out by the epsilon algorithm 
(Wynn, P., M.T.A.C 10 (1956), 91-96). AL@ot procedures for 
applying the algorithm to series of complex-terms are given by 
Wynn (BIT 2 (1962), 232-255). 

The body of this procedure has been tested using the Dart- 
mouth Self-Contained Atcou Processor for the LGP-30 com- 
puter. It gave the following results on the sequence for the 
smaller zero of the Laguerre polynomial, L[2](x): 


n S{n] e[1}(S[#]) ¢[2](S[1]) e[1}*(Sfx]) 
0 0.0000000 0.5714285 0.5857432 0.5857616 
1 0.5000000 0.5851059 0.5857854 0.5857859 
2 0.5625000 0.5857318 0.5857861 0.5857861 
3 0.5791016 0.5857816 

4 0.5838396 0.5857859 

5 0 .5852172 

6 0.5856198 True Value 0.5857864375 


These results are in satisfactory agreement with those given by 
by Wynn (1956); 
begin integer j, k, limj, limk, two kmaz; 
real T0, T1; 
two kmax := kmax + kmaz; 
limj := nmaz; 
for j := nmin step 1 until limj do 
begin TO := 0; 
lim := 7 — nmin; 
if limk > two kmax then limk := two kmaz) limk := limk — 1; 
for k := 0 step 1 until limk do 
begin T1 := S [j—k] — S [j-k—1]; 
if T1 + Othen T1 := T0 + 1/T1 else 
if S [j—k] = 1099 then T1 := 70 else 
T1 := 1099; 
comment 1099 may be replaced by the largest number 
representable in the computer; 
TO := S [j-k-1]; 
S (j-k-1] := T1 
end for k 
end for j 
end Shanks 
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CERTIFICATION OF ALGORITHM 215 

SHANKS [H. C. Thacher, Jr., Comm. ACM 6 (Nov. 
1963), 662] 

LaRRY SCHUMAKER (Reed. 16 Dec. 63) 

Computation Ctr., Stanford U., Stanford, Calif. 


Algorithm 215 was coded in Extended Aueot for the Burroughs 
B-5000 and was tested on a large number of sequences. One ap- 
parent typographical error was noted. The statement lim := 
j — nmin should have read limk : = j — nmin. The following tables 
were reproduced exactly: (a) tables on p. 5 and p. 33 of [1]; (b) 
Table I on p. 95 of [2]; (c) Tables III and IV on p. 28 of [3]. 

REFERENCES: 

1. Suanxs, D. Non-linear transformations of divergent and 
slowly convergent sequences. J. Math. Phys. 34 (1955), 142. 

2. Wynn, P. On a device for computing the em(S,) transforma- 
tion. MTAC 10 (1956), 91-96. 

3. Wynn, P. Onrepeated application of the e-algorithm. Chiffres 
4 (1961), 19-22. 
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ALGORITHM 216 
SMOOTH 
RICHARD GEORGE* 
Argonne National Laboratory, Argonne, III. 
* Work supported by the U. 8. Atomic Engergy Commission. 


procedure SMOOTH (Data) which is a list of length: (n); 
integer n; real array Daia; 
begin 
comment This procedure accomplishes fourth-order smooth- 
ing of a list using the method given by Lanczos, Applied 
Analysis (Prentice-Hall, 1956). This algorithm requires only 
one additional list for temporary storage; 
real Factor, Top; integer Maz I , 1, J; array Delia [1 : n]; 
Factor 3.0/35.0; 
Maz I :=n —1; 
for I := 1 step 1 until MazI do 
Delta [I] := Data [([+1] — Data [I]; 
for J := 1 step 1 until 3 do 


i 


Top := Delta [1]; 
Maz I := Max I — 1; 
for I := 1 step 1 until Maz I do 
Delta [I] := Delta [[+1] — Delta [I] 
end; 
Max I := n — 2; 
for I := 3 step 1 until Maz I do 
Data [I] := Data [I] — Delta [I-—2] < Factor; 
Data [1] := Data [1] + Top/5.0 + Delta [1] X Factor; 
Data [2] := Data [2] — Top X 0.4 — Delta [1]/7.0; 
Data [n] := Data (n] — Delta [n—3]/5.0 + Delta [n—4] X Factor; 
Data [n—1] := Data [n—1] + Delta [n—3] * 0.4 — Delta 
[n—4]/7.0 


end; 


tt 
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LGORITHM 217 


MINIMUM EXCESS COST CURVE 
WituiaAM A. Brices 
Marathon Oil Co., Findlay, Ohio 


procedure MINIMUM EXCESS COST CURVE (nodes, links, 


value nodes, links, source, sink; 


source, sink, I, J, crash, normal, slope, node, lij, ERROR); 


integer nodes, links, source, sink; 
integer array I,J, crash, normal, slope, node, lij; 
comment This procedure utilizes a network-type description of 


a project to compute the minimum cost involved in expedition 
of the project completion date. Project tasks are identified and 
completion order specified by the vector pair J, J, which contain 
node numbers of the events starting and ending each task. The 
tasks are parameterized within the vectors crash, normal, and 
slope—which contain the crash or minimum task completion 
times, the normal task completion times, and the increased cost 
per unit decrease in task duration (the slope of the time-cost 
curve), which must be a nonzero integer. The procedure initially 
determines the normal-duration critical path, then successively 
reduces the durations of the tasks with the flattest cost slope, 
adjusting the critical path, until minimum durations are 
reached. The FORD-FULKERSON labeling technique is 
utilized. Each task must proceed from a lower-numbered node 
to a higher-numbered one—if not, exit to the nonlocal label 
ERROR is made. Nodes should be numbered sequentially, start- 
ing at the initial event (source) and continuing to the final event 
(sink). The maximum node number is equivalent to the value 
nodes, while the value links denotes the total number of tasks. 
The arrays are of dimensions I, J, crash, normal, slope, 
lij [l:links] and node [1:nodes]; 


begin integer m, n, tb, nji, nij, lex, kf, nj, ni, ntv, ord, infinity, 


A: 


Al: 


A2: 


temp; 

integer array labi[l:nodes,1:3], f[l:links,1:2}; 

comment infinily is herein used to represent the largest avail- 
able integer; 

for m := 1 step 1 until links-1 do 
if I[m] 2 J[m} V I[m] > I[m+1] V J[m] > J[m+1] then go 

to ERROR; 
if I[links] = J[links] then go to ERROR; 


for n:= 1 step 1 until nodes do labl{n, 1] := labl[n, 2]:= 
labl{n, 3] := node[n] := 0; 
for m := 1 step 1 until links do 


begin f{m, 1] := f[m, 2] := 0; 
temp := node[I{m]] + normal{m]; 
if node [J{[m]] < temp then node [J[m]] : = temp 
end; 
ntyv i= ord: =0; tb: = node{[sink]; 
labl{source, 1] := source; labl[source, 3] : = infinity; 
for m := 1 step 1 until links do 
begin if labl[{Z[m], 1] = 0 then go to B; 
if labl[J(m], 1] ¥ 0 then go to C; 
njt >= node[J [m]] — node[I[m]]; 
if nji # normal[m] then go to Al; 
lex := slope[m] — f[m, 1); 
if lex S 0 then goto Al; 
kf := 1; goto A2; 
if nji ~ crash[m] then go to C; 
lex := infinity; kf := 2; 
labl[J[m], 1] := I[m]; labl[J[m], 2] : = kf; 


A3: 
AA: 


GI: 


OUT: 


ANS: 
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if labl{I[m], 3] > lex then go to A3; 
labl[J[m], 3] : = labl[J[m], 3]; go to A4; 
labl[J[m], 2] := lex; 
if J[m] = sink then go to D else go to C; 
if labl{J[m], 1] = 0 then go to C; 
nij += node[I[m]] — node[J{m]]; 
if nij # normal[m] \V f[m, 1] = 0 then go to B1,; 
lec :=f[m,1]; kf := —-1; goto B2; 
if nij ~ normal[m] \V [m, 2] = 0 then go to C; 
lex := f[m, 2]; kf := —2; 
labl[I[m], 1] := J[m]; labl{I[m], 2] : = kf; 
if [labl[J[m], 3] > lex then go to B3; 
labl[I(m], 3] := labllJ[m], 3]; go to B4; 
labl{I[m], 3] := lex; 
if I[m] = sink then go to D; 
end; 
for 1 := 1 step 1 until nodes do if labl[n, 1] = 0 then 
node|n] := node[n] — 1; 
for n := 1 step 1 until nodes do labl[n, 1] : = labl[{n, 2] := 
labl[n, 3] := 0; 
go to A; 
if labl[sink, 3] = infinity then go to OUT; 
ntv := ntv + labl[sink, 3]; nj := sink; 
ni >= labl[nj, 1); 
if labl[nj, 2] > 0 then go to G1; 
for m := 1 step 1 until links do if I[m] = nj A J[m| = 
ni then f[m, —labl{nj, 2]] := jflm, —labl{nj, 2]) + 
labl{sink, 3]; 
for m := 1 step 1 until links do if I[m] = ni A J[m] = 
nj then f[m, labl[nj, 2]] : = f[m, labl[nj, 2]] + labi[sink, 3]; 
if ni = source then go to OUT; 
nj i= ni; gotoG; 
for m := 1 step 1 until links do 
begin lij{m] := node[J[m]| — node[I[m]]; 
if lij{m] > normal[m] then lij{m] : = normal[m] 
end; 
ord := (tb-node[sink]) X ntv; tb := node[sink]; 
if labl[sink, 3] = infinity then ntv : = infinity; 
comment as control passes through here— 
ord is the ordinate of the minimum project excess cost 
curve at a total project duration of node[sink], 
successive values of ord plotted versus node[sink] gener- 
ate the minimum project excess cost curve. 
node(1: nodes] contains the event times at each node 
lij[1:links] contains the durations of each task 
ntv is the slope of the cost curve back in time from total 
duration node[sink]. 
these values should be printed in some readable form; 
if ntv < infinity then go to F; 
end MINIMUM EXCESS COST CURVE, 
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REMARK ON ALGORITHM 217 [H] 

MINIMUM EXCESS COST CURVE [William A. Briggs, 
Comm. ACM 6 (Dec. 1963), 737] 

Joun F. Mutu.(Recd. 26 Dec. 1967) 

Michigan State University, East Lansing, MI 48823 


KEY WORDS AND PHRASES: critical path scheduling, PERT, 
cost/time tradeoffs, network flows 


CR CATEGORIES: 3.59, 5.41. 


Algorithm 217 was transliterated into ForTRAN and successfully 
run on the CDC 3600 system at Indiana University after the fol- 
lowing changes were made: 


(1) In the first Boolean expression of the program the term: 
J[m] = J[m+1] 
was replaced by the term: 
([m] = I[m+1] A J[m] = J[m+1)) 


(2) The line: 
A3: labl{J[m], 2] := lez; 
was replaced by: 
A3: labl[J[m], 3] := lex; 


(3) In the statement labeled B1, the symbols: 
[m,2] = 0 
were replaced by: 
f[m, 2] = 0 


(4) Two statements before the statement labeled A was replaced 
by 
nivl := nilv := ord := 0 
where nivl was an additional integer variable. The third 
statement before ANS was replaced by: 
ord := (tb-node[sink]) X ntvl +ord; nivl := ntv; 
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ALGORITHM 218 

KUTTA MERSON 

Puyuuis M. LuKEeHART* 

Argonne National Laboratory, Argonne, III. 


procedure KutiaMerson (n, t, y, eps, h, fet, first); 
value n, eps; 

integer 7; 

real t, eps, h; 

real array 7; 

Boolean first; 
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yl[i] := yOli] + he/8 X fO[c] + 3 X he/8 X fl[i]; 
fet(t + he/2, y1, f2); 


for 7 := 1 step 1 until n do 
yl[t] := yO[t] + he/2 X fOli] — 3 X he/2 X filli] + 2 X he X 
f2{¢); 


fet(t + he, yl, fl); 
for 7 := 1 step 1 until n do 
y2{t] := yO[t] + he/6 X fli] + 2 X he/3 X f2[i] + he/6 X file); 
increase := true; 
for 7 := 1 step 1 until n do 
begin error := abs(.2 X (yl[z] — y2[z])); 
comment To test on relative error change this expression to 


* Work supported by the U. S. Atomic Energy Commission. 
procedure fet; 

comment This procedure integrates the system of ordinary first- 
order differential equations y[i] = f(¢](¢, y[1], y[2], --- y[n]) from 
t=ttot =i+hby the Kutta-Merson method (L. Fox, Numeri- 
cal Solution of Ordinary and Partial Differential Equations, 
p. 24, Pergamon Press, 1962). The working interval of calcula- 
tion is adjusted by the procedure so that the maximum absolute 
error of the dependent variables is less than eps. For optimum 
error control, the equations should be scaled so that all de- 
pendent variables have approximately the same magnitude. 
Input variables for the procedure are n, the number of equa- 
tions, t, initial value of the independent variable, y, array of 
initial values of dependént variables, eps, allowable error, h, 
the total interval, fet, a/procedure evaluating the derivatives, 
and first, a Boolean variable which indicates whether the work- 
ing interval has been adjusted to secure the desired accuracy. 
On the initial call of the procedure for a given system, first 
should be true. It ‘willl be set false by the procedure, and the 
proper working interval determined. The procedure fct has as 
formal parameters thé simple real variable t, and the real 
arrays y and f. For i = 1, 2, 3, --- , n it must assign to f[z] the 
value of the first derivative of y[z] appropriate to the values of t 
and y. The body of this procedure has been tested using the 
Dartmouth ScauP compiler for the LGP-30 computer. For the 
equation dy/dt = —2ty? and input data t = 1,y = 5,h = 1, 
eps = .0001, the average error was .000003 and the time was 30 
min. For the linear boundary value problem d?y/dé2 = —1 — 
(t2+1)y, y(+1) = 0, the maximum error was .0000024 (L. 
Collatz, The Numerical Treatment of Differential Equations, pp. 
145, 225, Springer-Verlag, Berlin, 1960) and the time, 90 min. 
More accuracy may be achieved by using a smaller value of eps; 
begin integer i, loc; 

real error; 

array y0, yl, y2, fO, fl, f2[i:n]; 

own integer ploc; 

own real he; 

Boolean increase; 

if first then begin hc := h; ploc := 1; first := false end; 
loc := 0; 

next: fet(t, yO, f0); 

for 1 := 1 stép 1 until n do 

ylfi] «= yO[t] + he/3 X fli); 

fet(t + he/3, y1, fl); 

for 71 := 1 step 1 until n do 

y\[t] := yO[t] + he/6 X fOli] + he/6 X file); 

fet(t + he/8, yt, fl); 


for 7 := 1 step 1 until n do 


abs(.2 — .2 X y2[t}/yl{]); 
if error > eps then 
begin he : = hc/2; 
ploc := 2 X ploc; 
loc := 2 X loc; 
go to next 
end; 
if error X 64 > eps then increase := false 
end 7; 
ti:=t+he; 
for 7 := 1 step 1 until n do 
yOlt] >= y2i[r]; 
loc := loc +1; ° 
if loc < ploc / increase /\ lac = loc + 2X 2 (A ploc > 1 then 
begin he := 2 X he; 
loc := loc + 2; 
ploc := ploc + 2 
end; 
go to next 
end KuttaMerson 


CERTIFICATION OF ALGORITHM 218 [D2] 

KUTTA MERSON [Phyllis M. Lukehart, Comm. ACW 
6 (Dec. 1963), 737] 

KAREN BorMAN PRIEBE (Recd. 10 Feb. 1964) 

Woodward Governor Company, Rockford, Illinois 


Algorithm 218 was translated into Fast for the NCR 315 and 
gave satisfactory results with the following corrections, if the 
equations were scaled as recommended in the comment of the 
original algorithm. Ignoring this scaling can lead to results that 
do not satisfy the intended error criterion. 

1. procedure KuttaMerson (n, t, y, eps, h, fet, first, x); 
instead of 

procedure KutiaMerson (n, t, y, eps, h, fet, first); 
2. real array y, x; 
instead of 

. real array y; 

3. if first then begin for 7 := 1 step 1 until n do y0[i] : = y[z); 
he :=h; 
instead of 
if first then begin he := h; 
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4, if loc < ploc then 


begin 
if increase /\ loc = (loc+2) X 2 A ploc > 1 then 
begin 
he := 2 X he; 
loc := loc + 2; 
ploc := ploc + 2 
end; 
go to next 
end; 


for 1 := 1 step.1 until n do z[t] := y0[]; 
end KuttaMerson 
instead of 
if loc < ploc /\ increase -:- 
end KuttaMerson 


5. The following sentences should be added to the initial com- 
ment of the procedure: 

The values of the dependent variables at ¢ + h are placed in the 
array x. Note that the values of ¢ and first are changed as side- 
effects of the procedure. {As originally written, KuttaMerson 
seemed unable to obtain the values of the solution at ¢ or to trans- 
mit the values of the solution at t + h to the outside program!— 
Ed.} 

6. Change array to array in the body of the procedure. 


7. Insert after own integer ploc; 
own array y0[1:n]; 


Delete yO from the existing array declaration. 


REMARK ON ALGORITHM 218 [D2] 

KUTTA-MERSON [Phyllis M. Lukehart, Comm. ACM 6 
(Dec. 1963), 737]- 

G. Bayer (Recd. 25 Oct. 1965) 

Technische Hochschule, Braunschweig, Germany 


Successive calls of Kutia Merson with first = false do not reach 
the upper bound ¢-+h/ if the interval A is unequal to the interval 
h of the first call with jirst = true. 

Proposed correction: 

1) declaration real hc, instead of own real hc; 
2) if first then begin for 7 := 1 step 1 until n do y0[i] := y[z]; 
he :=h; ploc:=1; first := false 
end else hc := h/ploc; 
instead of if first then begin --- end; 
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ALGORITHM 219 

TOPOLOGICAL ORDERING FOR PERT NET- 
WORKS 

Rosert H. Kase 

Atlantic Refining Co., Philadelphia, Penn. 


procedure Topological Ordering (i, j, tri, n,-ne); 
integer n,ne; integer array 1, j, tri; 
comment Nodal points i and j represent activities in a PERT 
network. 7 is the number of activities. tri is a tape record index 
vector locating where additional data for each activity is stored.; 
begin integer a,b; integer array ni, nj, event [1:n]; 
comment An event vector is set up containing ne events. 
New nodal numbers ni and nj are assigned for all activities.; 
nei=nt{l}:=1; event(l]:= 7[]]; 
begin for a := 2 step 1 until n do 
begin for 6 := 1 step 1 until ne do 
if [a] = event[b] then begin nia] := 6; 
go to repeat | end; 
end; 
nila]: =ne:=ne+1; event[ne]: = z[a]; 
repeat 1: end; 
begin for a := 1 step 1 until n do 
begin for b := 1 step 1 until ne do 
if j[a] = event[b] then begin njl[a] := b; 
go to repeat 2 end; 
end; 
nj >= ne:=ne+1; event{[ne] := jlal; 
repeat 2: end; 
begin integer t, bigial; integer array rank, con(1:ne]; 
comment Event ranking (topological ordering) ; 
for a := 1 step 1 until ne do 
begin rank[a] := 1; con[a] := 0 end; 
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bigtal := 1; 
pass: ¢:=0; 
for a := 1 step 1 until n do 


begin if rank[nj[a]] S rank(ni{a]] then 
rank[nj{a}] := rank[ni{a]] + 1 else go to fill; 
if rank{nj[a]] > bigtal then 
bigtal := rank[njfa}]; t:=1 
fill: con{rank{ni{a}]] := con[rank[{nj{a}]] := 1 
end; 
if t S 0 then go to new; 
for a := 1 step 1 until bigtal do 
begin if con|[a] = 0 then go to Loop end; 
comment Loop should be a label of a procedure statement 
which calls a subroutine to detect those events which may 
be in a loop in the PERT network or the label of a print out 
indicating that loop(s) exist in the network. In any case 
a loop exists and further problem processing is impossible. ; 
for a := 1 step 1 until bigtal do con|a] := 0; 
go to pass; 
comment Reassignment of a new nodal number, nz, to all 
activities; 
new: t:=1: 
for a := 1 step 1 until bigtal do 
begin for > := 1 step 1 until ne do 
if rank[b] = a then begin eveni[b] := ¢; t:=t-+1 end 
end; 
for a := 1 step 1 until n do ni[a] : = event[nila]] 
end; 
comment Using the new nodal number, ni, activities (¢ and 7) 
and their corresponding tri may now be arranged in topological 
sequence with conventional sort routines. Sorting should be 
done on ni.; 
end 
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REMARK ON ALGORITHM 219 


Topological Ordering for PERT Networks 


[R. H. Kase, Comm. ACM 6, 12 (Dec. 1963), 738-739] 
Dennis Tenney [Rec 31 Jan. 1977 and 14 March 1976] 
Knutson and Associates, 1700 North 55th St., Boulder, CO 80301. 


ACM Algorithm 219 has been implemented successfully with two necessary modifi- 


cations: 
(1) change 
end; 
nila] := ne := ne+1; event[ne] := 7[a]; 
repeat 1: end; 
to 
nila] := ne: = ne+1; event[ne] := z[a]; 


repeat 1: end; 
end; 


(2) change 


end; 
nj := ne:= ne+1; event[ne] := jlal; 
repeat 2: end; 


to 
njla] := ne := ne+1; event[ne] := gla]; 
repeat 2: end; 
end; 
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ALGORITHM 220 

GAUSS-SEIDEL 

Peter W. SHANTZ 

University of Waterloo, Waterloo, Ontario, Canada 


procedure GAUSS-SEIDEL (n, A, B, tol); 
value n, tol; array A, B; real tol; integer 7; 
comment GAUSS-SEIDEL solves a system, Ax = B, of n 
simultaneous linear equations in n unknowns. A is the matrix of 
coefficients, B an inhomogeneous vector. The standard Gauss- 
Seidel iterative technique is employed until | ae _ tn | < tol 
for all K, where te denotes the ith iterant of the unknown zx . 
(Cf. Ralph G. Stanton, Numerical Methods for Science and Engi- 
neering, Ch. 8); 
begin array X, Y[l:n]; integer i,j, K; 
for 1 := 1 step 1 until n do X[t] := Y[z] := 0; 
START: fori := 1 step 1 until n do 
begin Y(t] := Bit]; 
for j := 1 step 1 until n do 
Y(t] := if 7 = 7 then y[z] else 
YU] - Ali, 1X YU; 
Y(t] := Y{c]/Alz, 2] 
end 7; 
comment Now test for convergence; 
for K := 1 step 1 until n do 
if abs(Y[K] — X[K]) > tol then 
begin for 7 := 1 step 1 until n do 
Xfi] := Yt]; goto START 
end convergence test; 
end GAUSS-SEIDEL 


CERTIFICATION OF AND REMARK ON 
ALGORITHM 220 

GAUSS-SEIDEL [P. W. Shantz, Comm. ACM 6 (Dec. 
1963), 739] 

A. P. Batson (Recd 6 Jan. 1964) 

University of Virginia, Charlottesville, Va. 

Nixtaus WirtTH (Recd 6 Jan. 1964) 

Computer Science Div., Stanford U., Stanford, Calif. 


[Ep1ToR’s Note. Two substantially equivalent contributions 
were received on the same day, and so the editor has merged 
them.—G.E.F.] 


The following errors were detected. 

1. The procedure cannot communicate the solution to the out- 
side block unless X (or Y) is made a parameter of the procedure. 

2. The identifier GAUSS-SEIDEL may not contain a hyphen. 

3. In the fourth line after the label START change y[i] to 
Y(t]. 

With the above errors corrected, GAUSS SEIDEL was suc- 
cessfully run on the Stanford 7090 computer in Wirth’s Extended 
ALGOL, and on the Virginia ALeot compiler for the Burroughs 
205. 

The following improvements would be desirable. 

1. Avoid repeated reference to the subscripted variable Y{[7] 
inside the 7 loop. 
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2. Permit the user to initialize the array X to an appropriate 
value at the start of the iteration. 

3. Modify tol to be a relative error, rather than an absolute 
error. 

4. Incorporate a guard against nonconvergence. 


